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SUMMARY 

This  report  gives  a  defining  description  of  the  program¬ 
ming  language  FX-91.  The  FX  (short  for  PA'-Ql)  pro¬ 
gramming  language  is  designed  to  support  the  parallel  im¬ 
plementation  of  applications  that  perform  both  symbolic 
and  scientific  computations.  The  unique  features  of  FX 
include: 

•  An  effect  system,  to  discover  expression  scheduling 
constraints.  An  effect  is  a  static  description  of  the 
side-effects  em  expression  may  perform  when  it  is  eval¬ 
uated.  Just  as  a  type  describes  what  an  expression 
computes,  an  effect  describes  how  an  expression  com^ 
putes. 

•  Abstraction  over  any  kind  of  description,  thus  permit¬ 
ting  first-class  type  and  effect  polymorphism.  Effect 
polymorphism  makes  the  FX  effect  system  more  pow¬ 
erful  than  previous  approaches  to  side-effect  analysis 
in  the  presence  of  first-class  subroutines. 

•  Type  and  effect  inference,  so  that  declaration  ftee  pro¬ 
grams  can  be  statically  type  and  effect  checked.  FX 
also  permits  explicitly  typed  programs,  and  programs 
that  use  explicit  types  only  for  first-class  polymorphic 
values  and  modules. 

•  First-class  modules,  which  permit  FX  to  serve  as  its 
own  configuration  language.  It  also  includes  an  archi¬ 
tecture  independent  module  of  parallel  vector  opera¬ 
tors. 

The  introduction  offers  a  summary  of  and  motivation  for 
the  unique  properties  of  FX-91. 

•  Chapter  1  presents  the  fundamental  ideas  of  the  lan¬ 
guage  and  describes  the  notational  conventions  used 
for  describing  the  language  and  for  writing  programs 
in  the  language. 

•  Chapter  2  describes  the  FX-91  Kernel.  The  FX  Ker¬ 
nel  includes  essential  constructs  and  the  type  and  ef¬ 
fect  system. 

•  Chapter  3  introduces  built-in  data  types  and  opera¬ 
tions,  which  include  all  of  the  language’s  data  manip¬ 
ulation  and  input-output  primitives. 
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2  FX  Report 


INTRODUCTION 


FX-91  is  a  programming  language  that  we  designed  to 
investigate  the  following  questions; 

•  How  can  simple  syntactic  rules  be  used  to  deduce  pro¬ 
gram!  properties  beyond  type  information? 

•  How  important  is  information  about  the  side-effects 
of  program  expressions  in  a  language  that  is  designed 
for  parallel  computing,  and  to  what  extent  can  unam¬ 
biguous  side-effect  information  be  used  to  schedule  a 
program  for  parallel  execution? 

•  How  important  are  first-class  polymorphic  values  and 
first-class  modules  in  a  language  that  provides  type 
inference? 

FX-91  is  a  major  revision  and  extension  of  the  FX-87  pro¬ 
gramming  language  [GJLS87].  The  designs  of  both  FX-91 
and  FX-87  were  strongly  influenced  by  Scheme  [R86],  es¬ 
pecially  in  the  choice  of  standard  types  and  operations. 

FX-87  was  the  first  programming  language  to  incorporate 
an  effect  system  [LG88].  Experimental  data  from  FX-87 
programs  show  that  effect  information  can  be  used  to  auto¬ 
matically  schedule  imperative  programs  for  parallel  execu¬ 
tion  [HG88].  However,  we  found  that  FX-87  was  difficult 
to  use  because  extensive  declarations  were  required  in  pro¬ 
grams. 

FX-91  is  designed  to  be  easier  to  use  than  FX-87.  FX-91 
eliminates  the  requirement  for  most  declarations  [OG89, 
JG91],  provides  a  less  complex  effect  system,  and  provides 
a  module  system  that  supports  programming  in  the  large 
[SG90]. 

We  have  found  that  an  effect  system  is  useful  to  program¬ 
mers,  compiler  writers,  and  language  designers  in  the  fol¬ 
lowing  respects: 

•  An  effect  system  lets  the  programmer  specify  the  side- 
effect  properties  of  program  modules  in  a  way  that  is 
machine-verifiable.  The  resulting  effect  specifications 
are  a  natural  extension  of  the  type  specifications  found 
in  conventional  programming  languages.  We  believe 
that  effect  specifications  have  the  potential  to  improve 
the  design  and  maintenance  of  imperative  programs. 

•  An  effect  system  lets  the  compiler  identify  optimiza- 
tion  opportunities  that  are  hard  to  detect  in  a  conven¬ 
tional  higher-order  imperative  programming  language. 
We  have  focused  our  research  on  three  classes  of  opti¬ 
mizations:  execution  time  (including  eager,  lazy,  and 
parallel  evaluation);  common  subexpression  elimina¬ 
tion  (including  memoization);  and  dead  code  elimi¬ 
nation.  We  believe  that  the  ability  to  perform  these 
optimizations  effectively  in  the  presence  of  side-effects 
represents  a  step  towards  integrating  functional  and 
imperative  programming  for  the  purpose  of  parallel 
programming. 


•  An  effect  system  lets  the  language  designer  express 
and  enforce  side-effect  constraints  in  the  language  def¬ 
inition.  In  FX,  for  example,  the  body  of  a  polymor¬ 
phic  expression  must  not  have  any  side-effects.  This 
restriction  makes  FX  the  first  language  known  to  us 
that  permits  an  efficient  implementation  of  fully  or¬ 
thogonal  polymorphism  in  the  presence  of  side-effects. 
In  FX,  any  expression  can  be  abstracted  over  any  type 
and  all  polymorphic  values  are  first-class.  First-class 
values  can  be  passed  to  subroutines,  returned  from 
subroutines,  and  placed  in  the  store. 

The  FX-91  programming  language  was  developed  by  the 
Programming  Systems  Research  Group  at  MIT.  In  addi¬ 
tion  to  the  authors,  Jonathan  Rees  and  Franklyn  Turbak 
contributed  to  the  design  of  FX-91.  Any  information  or 
comments  about  FX-91  can  be  submitted  to  the  FX  elec¬ 
tronic  mailing  list  lz61cs.iBit.edu.  Send  requests  to  be 
added  to  the  Ust  to  lz-request61cs.Biit.eda. 

An  FX-91  interpreter  written  in  Scheme  can  be 
obtained  by  sending  an  electronic  mail  request  to 
lz-request61cs .  Biit .  edu. 
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DESCRIPTION  OF  THE  LANGUAGE 


1.  Overview  of  FX 

FX  uses  lambda  abstraction  and  beta-reduction  as  the  ba^- 
sis  of  its  computational  model,  and  thus  it  is  a  member  of 
the  lambda  calculus  family  of  languages.  FX  uses  sym¬ 
bolic  expression  (s-expression)  syntax,  and  thus  it  is  com¬ 
patible  with  Lisp  source  maintenance  tools.  FX  is  lexically 
scoped,  statically  checked,  uses  one  variable  namespace  and 
implements  tail-recursion.  All  values  in  FX  are  first-class, 
including  subroutines,  polymorphic  values  and  modules. 

The  FX  programming  system  is  based  on  a  kernel  lan¬ 
guage  that  defines  the  syntax  and  semantics  of  a  core  set 
of  primitive  FX  expressions.  The  kernel  is  primitive  in  the 
sense  that  it  defines  twenty  different  value  expressions,  and 
there  is  no  simple  way  to  express  these  expressions  in  terms 
of  one  another.  Thus  the  FX  kernel  forms  the  core  of  the 
FX  programming  system  from  the  point  of  view  of  both 
the  FX  application  programmer  and  the  FX  language  im¬ 
plementor. 

The  foundation  provided  by  the  FX  kernel  is  supplemented 
with  a  library  of  standard  types  and  operators  that  are  con¬ 
tained  in  the  f  x  module.  The  lx  module  contains  types  and 
operations  for  booleans,  integers,  floating  point  numbers, 
characters,  strings,  s}mfibols,  permutations,  unique  val¬ 
ues,  lists,  vectors,  symbolic  expressions  and  input-output 
streams.  The  lx  module  can  be  defined  in  terms  of  ker¬ 
nel  expressions,  and  can  be  replaced  by  programmers  who 
wish  to  change  the  implementation  of  standard  types. 

1.1.  Semantics 

The  semantic  definition  of  the  FX  kernel  is  divided  into 
a  static  semantics  that  is  used  to  deduce  the  properties 
of  programs  before  they  are  run  and  a  dynamic  semantics 
that  describes  the  behavior  of  programs  at  execution  time. 

There  are  two  key  theorems  that  relate  the  static  and  dy¬ 
namic  semantics  of  FX.  The  type  soundness  theorem  guar¬ 
antees  that  the  static  type  of  an  expression  (the  type  com¬ 
puted  by  the  static  semantics)  will  be  a  conservative  ap¬ 
proximation  of  its  dynamic  type  (the  type  of  the  value  com¬ 
puted  by  the  dynamic  semantics).  The  effect  soundness 
theorem  guarantees  that  the  static  effect  of  an  expression 
will  be  a  conservative  approximation  of  its  dynamic  effect. 
These  theorems  permit  results  from  the  static  semantics 
to  be  used  by  FX  implementations  to  improve  dynamic 
performance. 

The  FX  static  semantics  is  based  on  a  hierarchical  kinded 
type  system  that  includes  kinds,  universal  polymorphism, 
higher  order  types,  and  recursive  types.  The  static  se¬ 
mantics  describes  expressions  with  description  expressions. 
There  are  two  principle  kinds  of  descriptions:  types,  which 
describe  the  values  expressions  compute,  and  effects,  which 


describe  the  side-effects  of  expressions.  An  expression  may 
be  polymorphic  in  any  kind  of  description.  Thus  the  type 
of  a  subroutine  may  depend  on  the  effect  parameters  passed 
to  it.  Effect  polymorphism  permits  the  static  semantics  to 
provide  tight  effect  bounds  on  higher-order  functionals  in 
a  naturaJ  and  simple  manner. 

The  FX  static  semantics  will  reconstruct  omitted  type  and 
effect  declarations  in  a  manner  that  combines  the  implicit 
typing  of  ML[MTH90]  with  the  full  power  of  the  explic¬ 
itly  typed  second-order  polymorphic  lambda  calculus.  The 
FX  reconstruction  system  relieves  the  programmer  of  the 
burden  of  providing  type  and  effect  declarations  while  re¬ 
taining  the  benefits  of  strongly-typed  languages,  includ¬ 
ing  superior  performance,  documentation,  and  safety.  The 
FX  type  reconstruction  system  will  accept  ML-style  pro¬ 
grams,  explicitly  typed  programs,  and  programs  that  use 
explicit  types  only  for  first-class  polymorphic  values  and 
modules.  We  offer  this  flexibility  by  providing  both  generic 
and  explicitly-quantified  polymorphic  types  in  FX,  along 
with  an  operator  to  convert  between  these  two  forms  of 
polymorphism. 

The  FX  static  semantics  provides  complete  checking  of 
module  values.  The  FX  module  system  permits  types  and 
values  to  be  packaged  as  first-class  module  values.  Because 
modules  are  first-class  values,  FX  does  not  require  a  sep¬ 
arate  configuration  language. 

1.2.  Lexicon 

The  basic  lexical  entities  used  in  the  FX  programming 
language  are  the  following; 

•  A  digit  is  one  of  0  ...  9. 

•  A  letter  is  one  of  a  ...  z  or  A  .  Z. 

•  The  set  of  extended  alphabetic  charr'ters  must  in¬ 
clude:  •  ,  /,  <,  =,  >,  !,  ?,  :,  $,  y„  ft,  -,  -,  [,  ], 

C. 

•  A  white  space  is  a  blank  space  a  newline  character,  a 
tab  ch^u^acter,  or  a  newpage  character. 

•  A  character  is  a  digit,  a  letter,  an  extended  alphabetic 
character,  +,  -,  a  white  space  or  backspace  character. 

•  A  delimiter  is  a  white  space,  a  left  parenthesis  or  a 
right  parenthesis. 

•  A  token  is  a  sequence  of  characters  that  is  separated 
by  delimiters. 

•  A  number  is  a  token  made  of  a  non-empty  sequence  of 
digits,  possibly  including  base  and  exponent  informa¬ 
tion,  a  decimal  point,  amd  a  sign,  (see  Chapter  3). 
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•  A  literal  is  either  a  number,  or  a  token  that  begins 
with  ’  or  #,  or  a  sequence  of  characters  or  \  enclosed 
in  double  quotes  ",  or  the  symbol  keyword  and  an 
identihei  enclosed  in  parentheses. 

•  An  identifier  is  a  token  beginning  with  a  letter  or  ex¬ 
tended  alphabetic  character  and  made  of  a  non-empty 
sequence  of  letters,  digits,  extended  alphabetic  char¬ 
acters,  and  the  chairacters  +  and  Note  that  +  and  - 
by  themselves  are  also  identifiers.  Identifiers  are  case- 
insensitive. 

FX  reserves  the  following  identifiers.  Reserved  identifiers 
must  not  be  bound,  redefined,  or  used  as  tags  for  sums. 


abs 

and 

begin 

cond 

del ine-abs  tract ion 

define 

deline-datatype 

del ine-des  cr ipt ion 

deline-typed 

desc 

dlambda 

effect 

else 

extend 

extract 

fx 

il 

lambda 

let 

letrec 

let* 

load 

match 

maxeff 

module 

moduleof 

open 

or 

plambda 

poly 

product 

productof 

proj 

select 

sum 

SUfflOf 

symbol 

tagease 

the 

type 

ral 

mith 

Comments  in  FX  are  sequences  of  characters  beginning 
with  a  and  ending  with  the  end  of  the  hne  on  which 
the  is  located.  They  are  discarded  by  FX  and  treated 
as  a  single  whitespace. 

1.3.  Static  and  Dynamic  Errors 

Static  errors  are  detected  by  the  FX  static  semsuitics.  AU 
syntax,  type,  and  effect  errors  are  detected  statically  and 
reported.  The  sentence  “x  must  be  y”  indicates  that  “it  is 
a  static  error  if  x  is  not  y” . 

Dynamic  errors  may  be  detected  by  FX  when  a  program 
is  run.  The  phrase  “a  dynamic  error  is  signalled”  indi¬ 
cates  that  FX  implementations  must  report  the  corre¬ 
sponding  dynamic  error  and  proceed  in  an  implementation- 
dependent  manner.  The  phrase  “it  is  a  dynamic  error”  in¬ 
dicates  that  FX  implementations  do  not  have  to  detect  or 
report  the  corresponding  dynamic  error.  The  me2uiing  of 
a  program  that  contains  a  dynamic  error  is  undefined. 

1.4.  Conventions 

This  report  adheres  to  the  following  conventions: 

•  FX  program  text  is  written  in  teletype  font.  Pro¬ 
gram  text  is  comprised  of  identifiers,  literals,  and  de¬ 
limiters. 


•  Meta-expressions,  which  are  namej  for  syntactic 
classes  of  expressions,  are  written  in  italic  font.  A  pro¬ 
grammer  may  replace  any  meta-expression  by  a  com¬ 
patible  FX  expression. 

•  Certain  FX  language  forms  have  a  variable  number  of 
components.  A  possibly  empty  sequence  of  n  expres¬ 
sions  is  noted  ei...en  or  ...JLje,-.  If  the  name  of  the 
upper  bound  on  subscripts  is  not  used,  we  write  the 
shorter;  ei....  If  there  is  at  least  one  expression  in  the 
sequence  (i.e.  n  >  1),  we  use  eie^-.-en-  We  usually 
denote  by  a  (or  any  other  subscripted  e)  an  expres¬ 
sion  belonging  to  such  sequence.  Certain  parameters 
can  have  different  forms;  [x|t/]  stands  for  either  x  or  y. 

•  The  set  of  values  x  that  satisfy  the  predicate  P  is 
noted  {x  |  P(x)};  predicates  are  defined  as  usual.  The 
difference  of  two  sets  S  and  T  is  noted  S  —  T.  For 
an  ordered  index  set  S,  we  note  {rgse*}  the  set  of  e, 
for  each  i  of  5.  As  a  shorthand,  {i6[i,n]C.}  is  noted 
{JLjC,  }.  The  interval  of  ordered  values  between  x  and 
y  is  noted  [x,y].  If  the  lower  bound  is  excluded,  ]x,y] 
is  used  instead;  the  same  convention  applies  to  upper 
bounds. 

•  The  function  that  is  equal  to  the  function  /,  except  at 
X  (not  in  the  domain  of  /)  where  it  yields  y,  is  noted 
f[x  *-♦  y].  As  a  short  hand,  we  note  /CLiXj  >-*  yt] 
the  function  equal  to  /,  except  at  each  of  the  pairwise 
distinct  n  arguments  Xi  where  it  yields  y,- .  The  result 
of  the  application  of  /  to  x  is  noted  fx. 

•  A  variable  is  free  in  an  expression  e  if  it  does  not  ap¬ 
pear  in  any  of  the  binding  constructs  withm  e.  A  vari¬ 
able  that  is  not  free  is  bound.  (Binding  constructs  are 
labelled  as  such  in  their  definition.)  All  bound  vari¬ 
ables  are  alpba-ren2uned  to  avoid  name  clashes  with 
the  surrounding  context. 

•  The  syntactic  substitution  s  of  the  variable  id  by  the 
expression  e  (noted  [e/»d])  is  the  function,  defined  by 
induction  on  the  syntactic  structure  of  its  domain, 
that  substitutes  any  free  appearance  of  id  in  its  argu¬ 
ment  by  e;  alpha-renaming  of  bound  variables  is  per¬ 
formed  to  avoid  name  clashes.  For  an  ordered  index 
set  S,  we  write  [egsCi/ idi]  for  the  successive  substitu¬ 
tions  of  idg  by  e*  for  each  x  of  S  (the  variables  id,  must 
be  pairwise  distinct).  As  a  shorthand,  [ig[i,n)Ct/«di]  is 
noted 

•  Universal  quantification  of  a  formula  /(i)  when  i  is  in 
a  given  interval  [l,n]  is  written  f{i)  (1  <  »  <  n). 
This  notation  is  straightforwardly  extended  to  open 
and  semi-open  intervals. 

•  A  deduction  system  is  a  set  of  rules  written  in  the 
following  way: 
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premise  i  ...premtsen 
conclusioni .  ..conclusiorim 

which  can  be  read  as  “If  all  the  premisci  are  true,  then 
each  conclusion^  is  true.”  The  premises  and  conclu¬ 
sions  are  implicitly  universally  quantified  over  their 
free  variables.  If  there  are  no  premises,  a  single  box  is 
used. 

•  Kind,  type  and  effect  checking  require  a  type  and  kind 
assignment  function  T K  that  is  the  mapping  of  vari¬ 
ables  to  their  type  or  kind.  To  distinguish  whether 
TK  is  extended  by  a  type  or  kind  assignment,  we  re¬ 
spectively  replace  the  *-*  sign  by  ;  and  ::  .  Kind, 
effect  and  type  assertions  are  written  in  the  following 
way: 

TK  h  d  ::  k 
TK  t-  e  :  <  !  / 

These  assertions  mean  that  “TK  proves  that  d  has 
kind  k,  and  c  has  type  i  and  effect  /.”  The  empty 
assignment  is  noted 

•  FV(x)  is  the  set  of  free  variables  and  literals  of  the 
ordinary  or  description  expression  x. 

2.  The  FX-^\  Kernel 

The  FX  Kernel  is  a  simple  programming  language  that 
is  the  basis  of  the  FX  programming  language.  All  of  the 
constructs  in  the  FX  language  can  be  directly  explained 
by  rewriting  them  into  the  simpler  kernel  language.  Thus, 
the  kernel  forms  the  core  of  the  FX  language  from  the 
point  of  view  of  both  the  application  programmer  and  the 
language  implementor. 

The  FX  Kernel  has  three  language  levels  each  with  its 
own  set  of  expressions:  value  expressions,  description  ex¬ 
pressions  and  kind  expressions.  In  the  simplest  terms,  pro¬ 
grams  are  value  (or  ordinary)  expressions,  types  are  de¬ 
scriptions,  and  kinds  are  the  “types  of  types” . 

•  Programs  are  written  using  value  expressions.  Value 
fjcpressions  form  the  lowest  level  of  the  language.  Lit¬ 
erals  (e.g.  #t)  are  examples  of  value  expressions.  It 
is  possible  to  write  sophisticated  programs  and  only 
write  value  expressions. 

•  Declarations  in  value  expressions  are  written  using  de¬ 
scription  expressions.  Descriptions  form  the  second 
level  of  the  language.  There  are  three  kinds  of  de¬ 
scriptions:  effect  descriptions,  type  descriptions  and 
description  functions.  As  the  name  suggests,  descrip¬ 
tions  describe  vadue  expressions  -  in  pairticular,  ev¬ 
ery  legad  value  expression  has  both  a  type  and  am  ef¬ 
fect  description.  Most  omitted  declarations  are  recon¬ 
structed  by  FX. 


•  Declarations  in  description  expressions  are  written  us¬ 
ing  kind  expressions.  Kinds  form  the  third  and  highest 
level  of  the  language.  Kinds  are  the  “types”  of  de¬ 
scriptions,  and  every  legal  description  expression  has 
a  kind. 

A  complete  specification  for  each  level  of  the  FX  Kernel 
follows. 

2.1.  Kinds 

k  ::=  type  |  effect  |  (-»  ki  ...k„) 

For  each  kind  special  form,  we  give  its  syntax  in  its  section 
header  and  provide  an  informal  description  of  its  usage. 
Kinds  have  neither  static  nor  dynamic  semantics. 

2.1.1.  type 

The  kind  expression  tifpe  denotes  the  collection  of  de¬ 
scriptions  that  describe  the  values  of  computations  (the 
so-called  type  expressions). 

2.1.2.  effect 

The  kind  expression  effect  denotes  the  collection  of  de¬ 
scriptions  that  describe  the  side-effects  of  computations 
(the  so-called  ejSFecI  expressions). 

2.1.3.  (-»  ki...k„) 

A  -»  expression  denotes  the  collection  of  description  func¬ 
tions  that  map  descriptions  of  kind  ki  to  a  type  (the  so- 
called  type  constructors). 

2.2.  Descriptions 

ti  ::=  id  | 

idi  dii...di„')  | 

(->  ei  ((idi  tii)...(id„  ti„))  | 

(productof  (idi  tii)...(idn  <^))  | 

(sumof  (idi  iii')...(idn  tin))  | 
ix  ;:=  (dx  dxi...dxn)  1 

(->  ei  ((idi  txi)...(idn  txn))  tr„+i)  ] 

(moduleof  (abs  idoi  ibi)...(abs  jda„  ifc„) 

(desc  iddi  dzi)...(desc  iddp  dxp) 

(val  idvi  tei)...(val  idvm  lim))  | 
(poly  ((idi  ki)...(idn  K))  ix)  \ 

(productof  (idi  txi)...(idn  tin))  | 

(sumof  (idi  <*i)...(id„  Ixn))  ] 
ti 

ei  ::=  id  |  (mueff  eii...ein) 

dx::=  tx  \  (dlambda  ((idi  ki)...(id„  kn))  tx)  \  di 

di  ::=  ti  |  ei  |  id  |  (select  e  id) 
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The  syntax  of  expressions  e  is  given  below. 

Meta-variables  that  use  i  in  their  names  (instead  of  x)  de¬ 
note  description  classes  that  can  be  omitted  from  user  pro¬ 
grams;  they  will  be  automatically  inferred  by  the  FX  type 
and  effect  inference  system.  Such  descriptions  are  said  to 
be  inferable.  The  class  of  inferable  descriptions  is  contained 
in  the  class  of  descriptions. 

The  inclusion  semantics  is  a  reflexive  and  transitive  deduc¬ 
tion  system  based  on  the  C  partial  order  defined  below. 
Intuitively,  the  description  dxi  is  included  in  dx2  (noted 
dxi  C  dx2)  iff  dxi  is  more  constrained  than  dx2.  We  note 
dxi  ~  dx2  if  dxi  C  dij  and  dx2  C  dij. 

For  each  description  speciEil  form,  we  give  its  syntax  in  its 
section  header  and  provide  an  informal  description  of  its 
usage,  its  static  sem2intics  and  its  inclusion  semantics  (if 
any).  There  is  no  dynamic  semantics  for  descriptions. 

2.2.1.  id 

A  variable  denotes  the  description  to  which  it  is  bound. 

There  are  seven  constant  identifiers,  fx.  .unit  is  the  type 
of  expressions  used  only  for  their  side-effects,  fx.  .bool 
is  the  type  of  booleans.  fx.  .pure,  fx.  .read,  fx.  .urite 
and  fx.  .init  are  the  effects  of  expressions  that  are  re¬ 
spectively  referentially  transparent,  read-only,  write-only 
and  allocation-only.  (fx.  .ref of  f)  is  the  type  of  mutable 
references  to  values  of  type  t.  They  are  defined  in  the  fx 
module  (see  Chapter  3)  to  limit  the  number  of  reserved 
identifiers. 

Static  Semantics 


TK[id *] 

h 

id  ::  k 

TK 

h 

fx.  .unit  ::  type 

TK 

1- 

fx.  .bool  ::  type 

TK 

t- 

fx.  .pure  ::  effect 

TK 

h 

fx. .read  ::  effect 

TK 

h 

fx.. write  ::  effect 

TK 

h 

fx.  .init  ::  effect 

TK 

1- 

fx..refof  ::  (-»  type) 

2.2.2.  (.dxo  dx\...dxn) 

A  description  application  is  the  type  obtained  by  applying 
the  type  constructor  dzQ  to  the  descriptions  dx,. 

Static  Semantics 

TK^  dxo  (-»  ki...kn) 

TK\-  d:^  ;;  kj  (1  <  «  <  n) 

*tK\-  idxp  dxi...dxn)  type 


Inclusion  Semantics 

dxi  ~  dJi  (0  <  »  <  n) 

(dzp  dxi-.dxn)  ~  (da/p  dr'i...dr'n) 

((dlambda  ({idi  k\)...iidn  in))  tc)  dxi—dxn) 
_ G'-idr./td.]fr _ 

idi  ^  FV(<r)  (1  <  t  <  n) 

(dlaabda  ((idi  ki)...{idn  «r  idi...id„))  ~  tx 

2.2.3.  (->  ei  ((idi  ixi)...(idn  tin))  tCn+i) 

The  idi  must  be  distinct. 

An  ->  expression  is  the  type  of  subroutines  that  map  values 
of  type  ixi  to  &  vadue  of  type  while  performing  the 

side-effect  ei.  An  ->  expression  is  a  binding  construct. 

Static  Semantics 


TK  I-  ei  ;;  effect 

TK[)^iidj  ;  ixj]  I-  ixj+i  ;;  type  (0  <  i  <  n) 
TKh  (->  ei  ((idi  txi)...(.idn  ixn))  tXn+i)  ::  type 


Inclusion  Semantics 

ei  C  e? 

tifi  C  txi  (1  <  t  <  n) 

C  ixf  fj+i 

(->  ei  ((idi  lri)  ..(»dn  tXn))  <*n+i) 
C 

(->  ei’  ((idi  tx'i)...(id„  tx',,))  fa^n-n) 


«^.gU7=i^FV(to,)  (l<t<n)  ~ 

(->  ei  ((idi  iri)  ..(id„  ix„))  te„+i) 

(->  ei  ((id'i  ixi)...(id'„  lj=iid'j/idj]tx„)) 

2.2.4.  (dlanbda  ((idi  ki)...(id„  k„))  ix) 

The  idi  must  be  distinct. 

A  dlaabda  expression  is  the  type  constructor  that  maps 
descriptions  of  kinds  ki  to  the  type  ix.  A  dlaabda  expres¬ 
sion  is  a  binding  construct. 

Static  Semantics 

~  TK^^iidj  ;;  h  tx  ;;  type 

TKh  (dlaabda  ((idi  ki)...{id„  kn))  ix) 

_ ;;  (-»  ki...kn) _ 
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Inclusion  Semantics 


Inclusion  Semantics 


T,  a,  T  are  permutations  on 


(dlambda  ((idi  *1)...)  tx) 
(dlambda  ((idi  iti)...)  iif) 


(dlambda  ((idi  ki)...itdn  kn))  tx) 

(dlambda  (( ttfi  ki)..Xi(fn  kn))  G*=i«<fi7«d,]te) 

2.2.5.  (mrocefl  ei'i—etn) 

A  maxef  1  expression  is  the  cumulative  effect  of  the  effects 

et,. 

Static  Semantics 

TK  h  eij  ;;  effect  (1  <  t  <  n) 

TK  H  (maxef  1  eii...ein)  ::  effect 

Inclusion  Semantics 

I  (maxef f)  ~  fx..pure 

(maxeff  ei)  ~  ti 

(maxef f  e«i  eij)  ~  (maxef f  e«2  e«i) 


(maxeff  esi  (maxeff  ei2  eta) 
(maxeff  (maxeff  eti  ei'a)  ets) 


(maxeff  ei  ei)  ~  ei 


2.2.6.  (modnleof  (abs  idai  Jl:i)...(abs  ida,,  k„) 

(desc  iddi  dzi)...(desc  iddp  dxp) 
(val  idvi  <ii)...(vta  idvm  tXm)) 

The  idoi,  iddt  aind  idvj  must  be  distinct. 

A  moduleof  expression  is  the  type  of  modules  that  export 
the  abstract  descriptions  idat,  the  trzmsparent  descriptions 
iddic  amd  the  veilues  idvj .  A  moduleof  expression  is  a  bind' 
ing  construct. 

Static  Semantics 

idoi  it]  h  dz*  kdk  (l  <  jfc  <  p) 

TK^^iidai  ::  Ii]  h  [J_idzi/«ddt]iZ;  ;;  type 

_ (1  <  j  <  m) _ 

TKh  (moduleof 


2.2.7.  (poly  ((idi  ki)..Xidn  kn))  ix) 

The  idi  must  be  distinct. 

A  poly  expression  is  the  type  of  polymorphic  expressions 
abstracted  over  descriptions  of  kind  ib,-.  A  poly  expression 
is  a  binding  construct. 

Static  Semantics 


h  tx ::  type 

1  TKh  (poly  ((idi  ki)... 

(.idn  kn))  tx)  ::  type 

Inclusion  Semantics 


tx  C 


(poly  ((idi  ki)..Xidn  k„))  tx) 

C 

(poly  ((idi  kQ.Mdn  kn))  ilf) 

td'.gFV(tz)  (l<t'<n)  ~ 

(poly  ((idj  ki)...(,*dn  kn))  tx) 

(poly  (Ud'i  kO..Xid'n  kn))  \2=^i<fi/idi]tx) 

2.2.8.  (productof  (idi  ixi)...(.idn  tin)) 

The  idi  must  be  distinct. 

A  productof  expression  is  the  type  of  aggregate  values 
with  named  fields.  Each  field  idi  corresponds  to  a  value  of 
type  ixi. 

Static  Semantics 
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Inclusion  Semantics 


txi  C  txi  (1  <  *  < 

n  >  m _ 

(productol  (irfi 


C 

(productof  (idi  ti/m)) 


2.2.9.  (select  e  id) 

A  select  expression  is  the  description  named  id,  either 
abstract  or  transparent,  that  is  exported  by  the  module  c. 
The  effect  of  e  must  be  pure  to  prevent  type  abstraction 
violation. 


Static  Semantics 

TKi-  e  I  (moduleol 

(abs  tdai  ibi)...(abs  idon  kn) 
(desc  iddi  dxi)... 

(val  idvi  ill)...) 

_ !  fx..pure _ 

TK\-  (select  c  idoi)  ::  Jt,  (1  <  t  <  n) 


TAh  e  : 


TATP-it'da,  ;;  h  dxj  ;;  kdj  (1  <  J  <  m) 
Tfift-  (select  e  iddj)  ;;  kdj  (1  <  j  <  m) 


(moduleol 

(abs  tdai  ici)...(abs  idOn  kn) 

(desc  iddi  dxi)...(desc  iddm  dxm) 
val  idvi  txi)...)  !  lx.. pure 


Inclusion  Semantics 


TK  I-  e  :  (moduleol  ,  ^  , 

(abs  toai  ici)...(abs  tion  ka) 

(desc  tdai  art)... (desc  >Mm  dxm) 

_ (val  »dt)i  ixi )  ...)  _ 

(select  e  iddi) 


[?_i (select  e  idaj) / idaj\dxi  (1  <  »  <  m) 


2.2.10.  (sumol  (idi  txi)...(idn  ix„)) 

The  idi  must  be  distinct. 

A  sumol  expression  is  the  type  of  tagged  values  of  type  ix,- 
with  tag  idi- 

Static  Semantics 

TKh  ixi  ;;  type  (1  <  »  <  n) 

TK\-  (sumol  (.idi  izi)...(.id„  it^))  type 


2.3.  Values 

e  literal  \ 
sagar  | 

id\ 

(eo  Cl.-Cn)  I 

(begin  cq  ei—en)  I 
(extend  cq  ci)  | 

(extract  ix  e  id)  \ 

(il  eo  ei  e2)  | 

(lambda  (.[idx  j  (.iii  ii'i)]...[ti„  1  (id„  ti'n)])  e)  j 
(let  ((idi  ei)...(i4  e„))  e) 

(load  literal)  \ 

(module  (deline-abstraction  idoi  kai  dxai)... 

(deline-abstraction  idon  ha„  dza„) 
(deline-description  iddi  dxdi)... 

( del  ine-de  script  ion  iddm  dxdm) 
(deline  idvx  ei)... (deline  idvp  e^) 
(deline-typed  idii  txx  dx)  — 
(deline-typed  idi,  tXf  e'^))  | 

(open  e)  j 

(plambda  ((idi  kx)...(idn  kn))  e)  | 

(product  tx  ex—en)  | 

(proj  e  dxx—dxn)  1 
(sum  tx  id  e)  | 

(tagcase  tx  e  id  ci  ej)  | 

(the  tx  e)  I 
(with  eo  ei) 

For  each  expression  special  form  (see  also  the  Sugars  sec¬ 
tion),  we  give  its  syntax  in  its  section  header  and  provide 
an  informal  description  of  its  usage,  its  static  semantics 
and  its  dynamic  semantics. 

The  static  semantics  of  expressions  is  defined  modulo  the 
inclusion  semantics  of  descriptions: 


TK  h 

e  :  tx  !  ei 

ei  ^ 

ei 

tx  ~ 

td 

~~WV7 

txf  \  ei 

The  dynamic  semantics  is  a  deduction  system  based  on  the 
transitively  closed  — ►  relation  defined  over  pairs  made  of 
values  V  or  expressions  e,  and  stores  a.  A  value  is  either  a 
literal,  or  a  list  of  values  or  expressions  in  brackets  (vi  ...v„). 
Stores  are  functions  that  map  locations  to  values. 


Inclusion  Semantics 

C  isfi  (!<*■<  n) 

_ n  <  n' _ 

(sumol  (idi  <xi)...(id„  tXn)) 

C 

(sumol  (idi  i) ...{idn>  tJn')) 

x  is  a  permutation  on  (l,n] 
(sumol  (idi  fxi)...(id„  tXn)) 

(sumol  (id,(i^  tx,(x)) ...(.idr(n^  tx„(„))) 


2.3.1.  Literals 

There  are  three  kernel  literals:  #t  and  #1  for  the  lx.  .bool 
type  and  #u  for  the  lx.  .unit  type.  Other  literals  are  in¬ 
troduced  via  the  lx  module.  A  literal  evaluates  to  itself 
and  is  a  pure  expression.  All  lx  literals  are  immutable. 

Static  Semantics 

TK  I-  #t  ;  lx.  .bool  !  lx.  .pure 
TK  h  #1  :  lx. .bool  !  lx. .pure 
TK  I-  #u  :  lx.  .unit  !  lx.  .pure 
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Dynamic  Semantics 
A  literal  expression  evaluates  to  itself. 

2.3.2.  id 

A  variable  denotes  the  value  it  is  bound  to. 

There  are  three  constant  identifiers:  the  lx. ref  subrou¬ 
tine  edlocates  and  returns  a  new  reference  with  initial  value 
valO,  the  lx.‘  subroutine  returns  the  value  stored  in  ref 
and  the  lx . :  =  subroutine  replaces  the  value  stored  in  rel 
with  vail  and  returns  #u. 


Static  Semantics 

TK[id  :  ix[  h  id 
TKh  lx. rel 


ritfl-lx.- 


TKh  lx.:  = 


ix  !  lx.. pure 
(poly  ((t  type)) 

(->  lx.  .init 
((valO  t)) 

(lx. .relol  t))) 

(poly  ((t  type)) 

(->  lx.  .read 

((rel  (lx. .relol  t))) 
t)) 

(poly  ((t  type)) 

(->  lx.  .write 

((rel  (lx. .relol  t)) 
(vail  t)) 
lx. .unit)) 


Dynamic  Semamtics 


TAI-eo 

iJi 

TKV  tdi 
TKh  a 


(->  c»  ((irfi  ixi)...(.idn  iXn))  tx„+i) 
eio 

(l<*<n+l) 

type  (1  <  «  <  n  -I- 1) 
ti'i  !  eii  (1  <  i  <  n) 


Dynamic  Semaintics 


((vo...t,_i  e,-...en),o-) 


[(vQ-.-Vj  e,>i...en),g'' 


(({♦lambda*  (idi...id„)  e)  vi...v„),cr) 

_ ([Li»^.7'»<^.]e,g) _ 

2.3.4.  (begin  eo  ei...e„) 

The  expressions  e,-  are  successively  evaluated  to  values  t;,- 
and  v„  is  returned. 


Static  Semantics 

TK  h  a  rixTl 
TK\r  (begin  Cq  ci  — Cn) 

Dynamic  Semamtics 


tij  (0  <  »  <  n) 

:  iXn 

!  (maxelf  eto  eii...etn) 


(lx. rel  u), O’)  (with  /  unbound  in ^ 
({♦loc*  tj) 

I  ((lx.*  (*loc*  l)),<r)  I 


((lx.:=  {*100*  /)  v),a) 

(#u,<t[/  »-♦  vj) 

2.3.3.  (eo  ei...e„) 

The  expressions  e,-  are  successively  evaluated  to  values  Vi 
and  the  value  resulting  from  applying  vq  (after  imphcit 
projection  if  necessary,  see  open  below)  to  u,-  is  returned. 

Static  Semantics 


TKh  (eo  ei...e„) 


<1*1+1 

(maucelf  ei  eio  eii...et„) 


(e.g)  ->  (t,o-') 

((begin  e),g)  ->  (v,<r')' 

(eo,a)  —  (uor^') 

((begin  eo  ei  e2...),<r) 

((begin  ei 

2.3.S.  (extend  to  ei) 

The  expression  eo  is  evaluated  to  a  module  vo  and  the  value 
of  module  ei,  extended  with  all  the  bindings  introduced  by 
Vo,  is  returned.  The  expression  ei  has  access  to  the  bind¬ 
ings  of  eo-  In  the  case  of  conflict,  the  bindings  of  v^  take 
precedence.  An  extend  expression  is  a  binding  construct. 

Static  Semantics 

TKh  Co  :  (moduleol 

(abs  idooi  fcoi)— (abs  idaonp  bono) 

(desc  iddoi  dxoi)...(desc  idaomo  dxomo) 
(val  idvoi  <roi)— (val  idvopo  ixopg)) 

!  eio 

TKh  (with  eo  ci)  :  <r  !  ei 
ti  ~  (moduleol 

(abs  idan  bn). ..(abs  idai„  bi„,) 

(desc  iddii  drii)...(desc  iddim,  dzim,) 

(val  idvii  <zii)...(val  idvip,  Ixip, )) 

{,"i,i<ia2.}  =  {r=i«‘iaoi}  - 
{rJi^dd2i}  =  {Z\iddoi}  -  {Z\iddu} 

{?=!  idv2i}  =  {?°  1  idvQ.)  -  idvu) _ 

TKh  (extend  eo  ei) 

:  (moduleol 

(abs  i<ia2i  *21) •••(abs  irfo2„,  b2na) 

(abs  idaii  bu)...(abs  idain,  bin,) 

(desc  idd2i  dz2i)...(desc  i<W2mj  dx2m,) 
(desc  iddii  dzii)...(desc  iddjm,  drim,) 
(val  idv2i  <Z2i)...(val  idv2p,  <*2pa) 

(val  idvn  <zii)...(val  idvlp^  <zip,)) 

!  (maxell  eio  ti) 
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Dynamic  Semantics 

An  ^extend*  expression  is  a  special  form  only  available  in 
the  dynamic  semantics. 

(eo,g)  -> 

((extend  ep  ei),o-)  — »  ((*extend»  vp  (with  vp  ei)),g^ 


(ei,<r)  (i>i,(/)  ~ 

((♦extend*  vo  ei),<r)  — ►  ((fextend*  vq  vi),ff') 


((♦extend*  (*modnle*  (idi  vi)...(id„  «„)) 

(♦module*  v'm))),o-) 

((♦module*  (td"i  vi)...(id"p  Vp) 
_ (:d^i 


where  {Li‘A}  =  {"=i»4}  - 

2.3.6.  (extract  ix  e  id) 

The  expression  e  of  product  type  ix  is  evaluated  to  an  ag¬ 
gregate  value  V.  The  value  of  the  field  id  of  v  is  returned. 

Static  Semantics 


TK 

h 

ix  ::  type 

TK 

b 

e  :  tx  \  ei 

ix 

A,/ 

(productof  (idi  ixi)...(idn  iXn)) 

TK 

t-  (extract  tx  e  idi)  •  ixi  ! 

Dynamic  Semantics 

(e,g)  ->  (v,<7/) 

((extract  tx  e  id),ff) 

((extract  tx  v  id),  at) 

((extract  tx  (*product*  («di  uj )...(»<(„  t;„))  idi), a) 

_ (<^<.0') _ 

2.3.7.  (if  eo  ci  62) 

An  if  expression  evaluates  «o  to  the  value  to-  If  to  is  #t 
(resp.  #f),  then  the  value  of  ei  (resp.  62)  is  returned. 

Static  Semantics 


TK  h 

ep  :  fx.  .bool  !  eip 

TK  b 

ei  :  <r  !  eii 

TK  b 

62  :  fi  !  ei2 

TKh  (if  ep  ei  e2)  :  ix  1  (meuceff  eip  eii  ei2) 

Dynamic  Semantics 

~  (ep.g)  ->  (to,(T') 

~C(if  ep  Cl  e2),cr)  ->  ((if  tp  Cj  62), <t') 


I  ((if  #t  ei  62), g)  -»  (ei,g) 

((if  #f  ei  62), ff)  —  (62, g) 

2.3.8.  (lambda  ([idi  1  tr'i )]...[idr>  |  (id'n  txfn)])  «) 
The  idi  and  id'j  must  be  distinct. 

A  lambda  expression  denotes  the  subroutine  that,  when 
applied  to  n  values  t,-,  returns  tbe  value  of  e  with  the  ar¬ 
gument  values  Vi  substituted  for  the  formals  id,-  and  »d',-. 
A  lambda  expression  is  a  bini'’'ng  construct. 

Static  Semantics 

TKi  =  TK[fL\id!j  :  iaf;]  (1  <  i  <  n  -t- 1) 

TKi  h  iii  ::  type  (1  <  «  <  n) 

TKi  b  5!  type  (1  <  »  <  n) 

_ TKnJri^-\idi  ;  ti,]  be  i  ix  !  ei 

TAH  (lambda  ([idi  |  (iefi  ii'i)]...[idn  |  (id'n  ii'n)]) 

;  (->  ei  ([(idi  <»i)  I  Cid'i  l/i)]... 

[(id„  tin)  I  (i^n  ir) 

_ !  fx..pure _ 

Dynamic  Semantics 

((lambda  ([»di  [  (id'i  li'i)J...[id„  |  (id'n  ii'n)])  e),(r) 
_ ((*lambda*  ([idi  I  icf i]—[idn  I  id'n])  e),cr) _ 

2.3.9.  (let  ((idi  ei)...(idn  ««))  «) 

A  let  expression  simultMeously  binds  each  id,  to  the  value 
Vi  of  Cj.  The  veilue  of  e,  evaluated  in  an  augmented  envi¬ 
ronment  that  binds  id,-  to  Vj,  is  returned.  A  let  expression 
is  a  binding  construct. 

Static  Semantics 

TKh  e,-  ;  (x,  1  eii  (l  <  i  <  n) 

G  =  {i|n£)t_erpansit;e(ej)  (1  <  »  <  n)} 
b  [igGe,-/id,-]c  ;  ix  !  ei 

_ TKh  [”-iei/id,]fcc  type _ 

TKh  (let  ((idi  ei)...(id„  e„))  e) 

_ !  (maxeff  eii...ein  ei) _ 

where  an  expression  is  noLezpansive  iff  it  is  a  literal,  an 
identifier,  a  lambda  expression,  a  plambda  expression  or  a 
non-application  compound  expression  for  which  each  value 
subexpression  is  noLezpansive. 
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Dynamic  Semantics 


Static  Semantics 


((let  iiidi  Cl). ..(*4  fin))  e),<T) 
(((♦lambda*  (.idi...id„)  e)  ei...en),g) 


2.3.10.  (load  lUeral) 

The  expression  in  the  file  named  literal  is  produced  as  a 
vadue.  No  free  variables  are  allowed  in  a  load  file,  except  if 
defined  in  the  fx  module  (see  next  chapter). 


Static  Semantics 


<t>  h  (sith  fx  (include  literal))  :  tx  !  ei 
TKb  (load  literal)  :  tx  I  ei 


where  include  is  an  implementation-specific  function  that 
returns  the  expression  in  the  file  whose  name  is  given  as 
an  argument. 


TKlJLiida,-  ::  k] 

TiCig^iidui  :  iik]\j-iidt,  :  [JLidxdj/iddj]ti,] 
U_iup-idaf  ;  U p{idai ,  k ,  dxai)] 
QLidoro— ida,-  :  Down(idai,ki,dxai)] 
dxoi  ::  iiv  (1  <  »  <  n) 
dxdj  ::  kdj  (1  <  j  <  m) 

[jL^dxdj /iddj]txi  ::  type  (1  <  /  <  3) 
[]L^dxdj/iddj]ek  :  ti^  !  ei*  (1  <  i  <  p) 
[’P-^dxdj/iddj]di  :  txi  I  ei  I  (1  <  /  <  3) 


TKi 

TK2 


TKi 

TKi 

TKi 

TK-i 

TK2 


1- 

h 

I- 

1- 

h 


TK\-  (module 

(def ine-abstraction  laai  ici  dxa\)... 

(def ine-abstraction  ida„kn  dxon) 
(define-description  iddi  dxdi)... 

(def  ine-de  script  ion  idd„  dxdm) 
(define  tdvi  ei)... (define  idvp  Cp) 

(def ine-typed  idti  txi  e'l)... 

(def  ine-tj^ed  idtq  txq  e'g)) 

:  (moduleof 

(abs  idoi  iti)...fabs  ida„  L,) 

(desc  iddi  axdi)...(desc  iddm  dxdm) 
(val  idvi  tii)...(val  idvp  tip) 

(val  idti  <zi)...(val  idtq  tx,)) 

!  (maxeff  e»i...eip  di.-ei,) 


with  the  following  definitions  (where  id,  are  fresh): 


Dynamic  Semantics 

((with  fx  (include /«<ero0),<r)  — >  (u,<r^) 
((load  literal), <r)  — »  {v,er') 


2.3.11. 

(module  (def ine-abstraction  idai  ki  dxa\)... 

(def ine-abstraction  ida„  fc,  dra„) 
(define-description  idd\  dxdi)... 

(define-description  iddm  dxdm) 

(define  idvi  ci).. .(define  idvp  Cp) 

(def ine-typed  idti  txi  e'l)... 

(def ine-typed  idtq  txq  e'q)) 

The  ida,,  iddj,  idvt,  idti  must  be  distinct. 

A  module  expression  evaluates  to  a  module  that  contains 
the  abstract  descriptions  idoi,  the  transparent  descriptions 
iddj  and  the  values  of  idvk  and  idti.  The  representation 
descriptions  dza,  of  ida,-  can  be  mutually  recursive.  The 
values  e*  and  di  are  successively  evaluated  and  can  be 
mutually  recursive.  For  each  non-effect  abstract  descrip¬ 
tion  tda, ,  two  subroutines  are  automatically  defined  in  the 
scope  of  the  module  expression:  up- ida,  maps  from  the  rep¬ 
resentation  description  to  the  abstract  description,  while 
doun-tdo,'  goes  the  opposite  way. 


17p(di,type,  d2)  =  (->  fx.  .pure  (dj)  di) 
l^p(du  (-»  ki...k„),d2)  = 

(poly  ((tdi  ki)...(idn  in)) 

UpCCdi  »di...id„),type,  (d2  idi...idn))) 
Dov)n(di,k,  d2)  =  Upidz,  k,  di) 

Dynamic  Semantics 

The  *modulo-no-rec*  and  *rec*  expressions  are  special 
forms  only  available  in  the  dyn2unic  semantics. 

((module 

(def ine-abstraction  idoi  ki  dxai)... 

(def ine-abstraction  ida„  kn  dza„) 
(define-description  iddi  dxdi)... 

(define-description  iddm  dxdm) 

(define  idvi  ei)... (define  idvp  Cp) 

(def ine-typed  idti  tzi  e'l)... 

(def ine-typed  idtq  txq  e'q)),a) 

( ( ♦module-no-rec* 

(idui  p_i  (lambda  (id)  id) /up- ida,] 

{7=1  (lambda  (id)  id)/down— ida,]ei)... 

(.idvp  [,?_i (lambda  (id)  id)/up-ida,] 

P-i  (lambda  (id)  fd)/doTO-ida,]ep) 

(idti  [|Li  (lambda  (id)  id) /up— ida,] 

P_i (lambda  (id)  id)/doBn— ida,]e'i)... 

(idtq  (lambda  (id)  id)/up-ida,] 

_ G*=i (lambda  (id)  id)/dora-ida,]e',)),o-) 
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(et,g)  ~7 

((♦module-no-recf  (idi  Vi)...(idt_i 

(:4  et)...(idp  ep)),<r) 

((♦module-no-rec*  (irfi  vj) 

(i4+i 

_ (tdp  Ivi/idijep)),^') 

((♦module-no-rec*  (idi  Vi)...(idp  Vp)),<T) 
((■xmodule* 

((*rec*  ((idi  vi)...Cidp  Vp))  idk),<T) 
([i=i(*J^gc*  ((*^1  vQ  —  Udp  Vp))  idi)/idi]vt,a) 
2.3.12.  (open  e) 

An  open  expression  returns,  from  the  polymorphic  expres¬ 
sion  e,  the  value  of  e  with  the  polymorphic  description 
variables  id,-  of  e  replaced  by  inferred  description  expres¬ 
sions  dii .  When  a  polymorphic  value  is  directly  applied  to 
values,  open  is  used  to  perform  implicit  projection. 


Static  Semantics 


TK  ti  (poly  ((idi  ki)..Xidn  k„))  tx)  !  ei 

TK  h  diiV.ki  (1  <  i  <  n) 

TK\-  (open  e)  :  ["_i  di,-/id,-Jiz  !  ei 

TK  h  to-,  (poly  (<idi  kO.Mdm  km))  ix/)\ei 
TK  h  ((open  to)  ei...e„)  ;  tx  !  ei 

TKh  (to  e\...tn)  !  tx\  ei 

Dynamic  Semantics 

((opene),g)  — ►  (e,<rj 


2.3.13.  (plambda  ((idi  ^i)...(td„  ik„})  e) 

The  id,  must  be  distinct. 

A  plambda  expression  denotes  the  polymorphic  value  that, 
when  projected  onto  n  description  expressions  dxi  of  kind 
ki,  returns  the  value  of  the  pure  expression  e  with  the  argu¬ 
ment  values  dxi  substituted  for  the  formals  id,-.  A  plambda 
expression  is  a  binding  construct. 

Static  Semantics 


Dynamic  Semantics 

P((plambda  ((idi  ki)...)  e),<r)  —>  {6,7)" 

2.3.14.  (product  ix  ei...e„) 

The  n  expressions  Cj  are  successively  evaluated  to  values 
Vi-  A  product  expression  eveiluates  to  an  aggregate  vjJue 
of  product  type  tx,  with  each  field  id,-  having  the  value  Vi. 


Static  Semantics 


TK 

h 

tx  ::  type 

tx 

(productof  (idi  tx\)...(.idn  txn)) 

TK 

h 

ti  :  txi  !  eij  (1  <  *  <  n) 

TKh  (product  ix  :  ix 

!  (maxeff  eii...ei„) 

Dynamic  Semantics 

((product  tx  ei...e„),(T) 

(((lambda  (id'i...idj,)  (^product*  (idi  i<^i)...(id„  id|,))) 

_ ei...en),tr) _ 

where  the  i(^  are  fresh. 

2.3.15.  (proj  e  dxi...dxn) 

A  proj  expression  projects  the  polymorphic  expression  e 
onto  the  description  expressions  dz,-,  returning  the  corre¬ 
sponding  value. 

Static  Semantics 

TK  F  e  :  (poly  ((idi  ki)...(»d„  kn))  tx)  !  ei 
TK  h  dxj  ;;  k  (1  <  *  <  ») 

TKi-  (proj  e  dx\...dxn)  ’•  tp_idz,/id,Jtr  !  ei 


Dynamic  Semantics 

((proj  e  di...),a)  —  (e,g) 


2.3.16.  (sum  tx  id  e) 

The  expression  e  is  evaluated  to  v  and  a  tagged  value  of 
sum  type  tx  with  tag  id  and  value  v  is  returned. 

Static  Semantics 


TK 

h 

tx  ::  type 

ix 

(sumof  (id  tx)...) 

TK 

1- 

e  :  tz  !  ei 

TK\-  (sum  ix  id  e)  ix\  ti 

TI(]2-]idi  ::  1^]  h  e  !  fr  !  fx.  .pure 
TK\-  (plambda  ((idi  ki)..Xidn  kn))  e) 

;  (poly  ((idi  *i)...(»d|,  kn))  tx) 
_ !  ix. .pure  _ 


Dynamic  Semantics 

~  (e,tr)  ->  (v  cr^) 

((sum  to  id  e),g-)  — >  id  v) , o') 
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2.3.17.  (tagcase  tx  e  id  ei  ej) 

The  expressions  e,  ei  and  62  are  successively  evaluated  to 
values  V,  vi  and  V2.  The  value  v  is  a  tagged  value  of  type 
ix  with  tag  idj  and  value  v' .  If  id  is  idj ,  then  the  result 
of  applying  Ui  to  v'  is  returned,  otherwise  the  result  of 
applying  V2  to  v. 

Static  Semantics 


TK 

h 

ix  ::  type 

TK 

1- 

e  :  Iz  !  ei 

ix 

(sumof  (idi  ixi)...(idn  iXn)) 

TK 

h 

Cl  :  (->  eia  ((idj  ixj))  ixr)  !  eii 

TK 

1- 

e2  :  (->  ci4  ((id  tx))  tzr)  !  ei2 

TK 

1- 

(ttigcase  ix  e  idj  ei  62) 

:  iXr 

!  (maxell  ei  eii  ei2  eia  eu) 

Dyncimic  Semantics 

((tagcase  ix  e  id  Cj),)!) 

(((lambda  (idi  idj  ids) 

(tagcase  tx  idi  id  id;  ids))  ^  ^2).^^) 

where  id^  are  fresh. 


({tagcase  ix  (♦sum*  id  v)  id  m  V2),(t) 
_ ((ui  v),<r)  _ 


((tagcase  ix  (*8um*  id  v)  id  vi  t2),<r) 
_ ((v2  (*sum»  i<f  v}) , (t) 


2.3.18.  (the  ix  e) 

The  type  of  e  must  be  included  in  ix.  The  value  of  e  is 
returned. 

Static  Semantics 


TKhix 

type 

TKh  e  ; 

tz'  !  ei 

iif  C 

ix 

r/fb  (the  tx  e) 

:  ix  !  ei 

Dynamic  Semantics 


Static  Semantics 


TK\-  60  :  (moduleof 

(abs  idoi  ibx)—(ahs  ida„  kn) 

(desc  iddi  dxi)...(deac  iddn  dxm) 
(vzQ.  idvi  lri)...(val  idvp  iXp)) 

!  fx. .pure 

6  =  [t_i(with  60  idvk)/idvt] 

["_! (select  eo  idai)/idai] 

_ [?=idxj/iddj] _ _ 

TKi-  (with  cq  idvk)  ;  $ix]c  !  fx.  .pure  (^  <  k  <  p) 


TKh  60  : 

I 


(moduleoi 

(abs  iiai  Jbi)...(abs  ida„  kn) 
(desc  iddi  dri)...(desc  idd„  dxm) 
(val  idvi  .ri)...(val  idVp  iXp)) 
lx. .pure 


0  =  [J_j  (with  60  idvt )  /idvt] 
[JLi (select  eo  »da,)/ida,] 
[%,dx^/iddi] 

TK  I-  $61  :  ix  !  ei 


TKh  (vith  eo  Cl)  :  6ix  !  6ei 


Dynamic  Semantics 

~  (ep.g)  -►  (vQ.tr') 

~((gith  Cq  ei),g)  ->  ((with  vp  ei),cr') 

((with  (*module*  (idvi  vi)...(.idvp  Vp))  e),g) 

(^i=\'iil^dvi]e,(T) 


2.4.  Sugars 

sugar  ::=  (and  ei...en)  | 

(cond  (ei  e'i)...(e„  e'„)  (else  e'„+i))  | 

(let*  ((irfi  ei)...{idn  Cr.))  e)  | 

(letrec  ((iii  ei)...(id„  e„))  e)  | 

(match  e  (potj  ei)...(pfll„  e„))  ) 

(or  e\...en)  \ 
idi.id2.:.idn.id  \ 
id\..id2  I 
[e  dii...dxn]  I 
(define  head  e)  | 

(deline-datatype  [(id  Udi  ki)...(idn  kn))  \  id[ 
(id  1  dill  ...dzim,)... 

{.i^ p  dXpi  ...dXpjn^)) 

(do  (id  eo  e.)  (e,  c^)  e)  | 

(abs  (idi  id2...idn)  k)  | 

(val  (idi  id2...id„)  ix) 


((the  ix  e),o)  -*  (e,g)  | 


pai  ::=  liieral  | 


2.3.19.  (with  Co  Cl) 

The  pure  expression  cq  is  evaluated  to  uo  and  the  value 
of  Cl,  evaluated  in  an  environment  extended  with  all  the 
bindings  defined  in  the  module  vq,  is  returned.  A  with 
expression  is  a  binding  construct. 


id  I 

(e  pail. ..pain) 


head  ::=  id  | 

(head  (idi  ixi)...(id„  <tn))  | 
[head  (idi  ki)...(idn  *„)] 
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For  each  sugar  special  form,  we  give  its  syntax  in  its  section 
header,  provide  an  informal  description  of  its  usage  and  its 
rewritten  form  in  terms  of  kernel  constructs. 

2.4.1.  (and  ei  —  Cn) 

An  and  expression  performs  a  short-circuit  “and”  evalu¬ 
ation  of  Ci  to  Vi,  returning  #1  if  one  of  the  Vj  is  #f,  #t 
otherwise. 

Rewrite  Semantics 

•  #t  (n  =  0) 

•  (ii  (and  e2...e„)  Itt) 

2.4.2.  (cond  (ci  e'i)...(e„  e'n)  (else  e'n+i)) 

A  cond  expression  is  a  multiple-way  test  expression.  The 
tests  Ci  are  successively  evaluated  to  Vi  and  as  soon  as  one 
(say  j)  returns  #t  (or  else  is  reached),  the  value  of  e!j  is 
returned. 

Rewrite  Semantics 

•  e'n+i  (n  =  0) 

e  (il  Cl  e'l  (cond  (cj  c'2)  — («n  e'„)  (else  e'n+i))) 

2.4.3.  (let*  ((tdi  ei)...(i<4,  e„))  e) 

A  let*  expression  successively  binds  each  idi  to  the  value 
Vi  of  e,-  evaluated  in  an  augmented  environment  that  binds 
idj  to  Vj  for  j  in  [l,j  —  1].  The  value  of  e,  evaluated  in  an 
augmented  environment  that  binds  idi  to  Uj,  is  returned. 

Rewrite  Semantics 

•  e  (n  =  0) 

•  (let  ((idi  ei))  (let*  ((idj  e2)...(id„  e„))  e)) 

2.4.4.  (letrec  ((idi  ei)...(id„  e„))  e) 

A  letrec  expression  recursively  binds  each  id,-  to  the  value 
V,-  of  a.  The  value  of  c,  evaluated  in  an  augmented  envi¬ 
ronment  that  binds  idi  fo  v,,  is  returned. 

Rewrite  Semantics 

(let  ((id  (module  (define  idi  *1)... (define  id„  ««)))) 
(nith  id  e) ) 
where  id  is  &esh. 

2.4.5.  (match  e  (paty  ei)...(pa^,  c„)) 

A  match  expression  evaluates  e  to  v  and  then  performs  a 
sequential  match  of  v  against  the  patterns  pal^.  As  soon 
as  a  match  is  found  with  a  pattern  paii,  the  value  of  a, 
evaluated  in  an  environment  in  which  the  free  variables 
of  patf  are  bound  to  the  appropriate  components  of  v,  is 
returned. 


Rewrite  Semantics 

(let  ((id  e)) 

expand,, „„„(pa<i...pai;, 
ei...c„, 
id, 

(lambda  (x)  x), 

(lambda  (x)  unspecified))) 

where  id  is  fresh  zmd  the  clause  expansion  function 
expand,, , „„(pa<i. .. pal„.  Cl. ..e„,v,s,/)  is  defined  by: 

•  (/  v),  if  n  =  0 

•  expande,p(pa<i,  v,  (s  ci),  c')  where  e'  is 
expand,, ,„„(pa<2...pa4,,  e^.-.en.v.s,/),  otherwise. 

The  expression  expansion  function  expand ^^p{pai,v,  s' ,f') 
is  defined  by: 

•  (if  (=  pat  v)  s'  /'),  if  pal  is  a  literal  and  =  is  the 
equality  predicate  defined  on  the  type  of  the  literal  pat 

•  s',  if  pal  is  _ 

•  (let  ((id  v))  s'),  if  polis  id 

•  (ev  (lambda  (idi...idn)  e')  (lambda  (x)  /')),  where 
the  id,-  and  x  are  fresh 
and  e'  is  eayandp„(pali...pol„,  idi...id„,s',/'),  if  pat 
is  (c  pati...pat„). 

The  pattern  expansion  function 

expandj,gf{pati...pat„,  idi...id„,  s' ,  f)  is  defined  by: 

•  s',  if  n  =  0 

•  expond„p (pall,  idi, e',/')  where  c'  is 
expandp„(pal2...pa4,,  id2...id„,s',/'),  otherwise 

2.4.6.  (or  ei...en) 

An  or  expression  performs  a  short-circuit  “or”  evaluation 
of  e,-  to  Vi,  returning  #t  if  one  of  the  Vi  is  #t,  #f  otherwise. 

Rewrite  Sememtics 

•  #f  (n  =  0) 

•  (if  Cl  #t  (or  e2...e„)) 

2.4.7.  id\.id2....idnid 

An  infix  left-associative  “dot”  expression  returns  the  vsdue 
of  id  in  the  module  that  is  the  value  of  idi.id2....id^. 

Rewrite  Semantics 

•  (with  idi  id)  (n  =  1) 

•  (with  idi  idi—.idn.id) 
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2.4.8.  idi-.id^ 

A  “dotdot”  expression  denotes  the  description  expression 
bound  to  id2  in  the  module  idi. 

Rewrite  Semantics 

(select  idi  id^) 

2.4.9.  [e  dx\...dxn] 

A  □  expression  returns  the  value  of  e  projected  on 
dxi...dxn. 

Rewrite  Semantics 

(proj  e  dzi-.dxn) 

2.4.10.  (define  head  e) 

A  del  ine  expression  with  parenthesized  or  bracketed  head 
respectively  defines  a  function  or  a  polymorphic  value. 

Rewrite  Semantics 

•  (define  head'  (lambda  (.(idi  fih))  e)), 

if  Aeadis  (head'  (idi  txi)...(idn  txn)) 

•  (define  head'  (plambda  ((idi  ki)...(idn  An))  e)), 
if  Aead  is  (Aead'  (idi  Ai)...(«<i„  A„)] 

2.4.11. 

(define-datatype  [(id  (idi  ki)...(idn  kn))  \  «d] 

(id I  dxii  ...dxirrn)... 

(id p  dXpi  ...d^fn^)) 

A  define-datatype  expression  defines  a  possibly  higher- 
order  abstract  type  and  a  set  of  functions  suited  for  creat¬ 
ing  and  manipulating  (via  match)  values  of  that  type.  A 
higher-order  type  definition  introduces  the  following  defi¬ 
nitions  in  the  current  module  binding  (the  case  for  a  simple 
type  is  similar,  with  dlambda  and  plambda  eliminated). 

Rewrite  Semantics 

•  (define-abstraction  id 

(-»  ki...kn) 

(dlambda  ((idi  Ai).  .(id„  kn)) 

(sumol  (idi  (productof  (Li  dxn)... 

(d^mi  dtim,  )))... 

(idp  (productof  (Li  dxpi)... 

(Lm,  dXpm,)))))) 

•  (define-description  id-rep 

(dlambda  ((idi  Ai).  -(»d„  ifc„)) 

(sumof  (idi  (productof  (Li  drn)... 

(dimt  dxim,  )))... 

(idp  (productof  (Li  dxpi)... 

(Lrn,  dz^m,)))))) 


•  (deline-typed  idi 

(poly  ((idi  ki)...(idn  An)) 

(->  fx.  .pure 

((id"i  dXii)...(id'm,  dXimi)) 

(id  idi...idn))) 

(plambda  ((idi  Ai). ..(id„  A„)) 

(lambda  ((id"i  dx,i)...(id"m.  dxim.)) 

(up-id  (sum  (id— rep  idi—idn) 
idi 

(product  (productof 

(Li  dXii)...(Lm,  dXimJ) 
id"i...id"„. )))))) 

•  (del ine-typed  id'," 

(poly  ((idi  Ai)...(idn  A„) 

(xi  effect)  (x2  effect)  (t  type)) 

(->  lx.  .pure 

((v  (id  idi...idn)) 

(s  (->  Xi 

((id"i  dXii)...(id'„,  dxim.)) 

t)) 

(f  (->  X2  ((V  (id  idi...idn)))  t))) 

t)) 

(plambda  ((idi  ki)...(idn  Ki) 

(xi  effect)  (X2  effect)  (t  type)) 

(lambda 

((v  (id  idi...id„)) 

(s  (->  Xi  ((td"i  dtji)...(id"m.  dXim.))  t)) 

(/  (->  X2  ((v  (id  idi...idn)))  t))) 

(tagcase  (id— rep  idi...idn) 

(id— doun  v) 
idi 

(lambda  (v,) 

(s  (extract  (productof 

(Li  dxii)... 

(Ifmi  dXirrii  )  ) 

Vt 

Li)... 

(extract  (productof 

(Li  dxii)... 

(dm,  dXim^)) 

Vt 

Lm.))) 

(lambda  (x)  (/  v))))) 
where  Li,  id'i,  Xj,  t,  u,  w,,  s,  f  and  x  are  fresh. 


2.4.12.  (do  (id  eo  ei)  (et  Or)  e) 

A  do  expression  is  a  loop  expression.  The  expression  e 
is  iteratively  evaluated,  while  the  value  of  Ci  is  #f ,  in  an 
environment  in  which  id  is  initially  bound  to  cq  and  then 
to  e,-  in  all  subsequent  iterations.  Once  ct  evaluates  to  ft, 
the  value  of  Cr  is  returned. 
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Rewrite  SemaDtics 

(letrec  ((.iJ  (lambda  iid) 

(if  c« 
er 

(begin  e 

ii(f  ei)))))) 

iid!  eo)) 
where  id!  is  fresh. 

2.4.13.  (abs  iidi  id2...idn)  k) 

An  abs  form  with  a  list  of  identifiers  denotes  a  sequence  of 
abs  forms  for  each  idi. 

Rewrite  Semantics 

•  (abs  idi  k)  (n  =  1) 

•  (abs  idi  k)  (abs  iid^.-idn)  k) 

2.4.14.  (val  (tdi  id^  —  idn)  tx) 

A  val  form  with  a  list  of  identifiers  denotes  a  sequence  of 
val  forms  for  each  idi. 

Rewrite  Semantics 

•  (val  idi  tx)  (n  =  1) 

•  (val  idi  tx)  (val  iid2...idj,)  tx) 

3.  Standard  Descriptions 

The  fx  module  defines  the  standard  effects  and  standard 
types  that  are  provided  by  every  FX  implementation. 
They  fill  out  the  framework  introduced  by  the  FX  Ker¬ 
nel  with  a  set  of  useful  types  and  subroutines. 

The  FX  standard  effects  are  given  first.  The  FX  standard 
types  and  type  constructors  appear  in  order  of  increasing 
complexity.  There  is  a  section  for  each  data  type  or  type 
constructor,  giving  its  kind,  a  brief  overview  of  its  purpose, 
the  syntax  of  literals,  a  list  of  subroutines  with  their  types, 
an  informal  semantics  and  description  of  error  conditions. 
In  the  semantic  description  of  a  subroutine,  arguments  are 
denoted  by  the  names  appearing  in  the  type  of  the  subrou¬ 
tine. 

3.1.  Pure  effect 

The  pure  effect  is  the  effect  of  referentially  transparent 
computations.  It  is  already  defined  in  the  FX  Kernel  (cf. 
previous  chapter). 


3.2.  Init  effect 

The  init  effect  is  the  effect  of  computations  that  only  ini- 
tialbe  freshly  allocated  memory  locations.  It  is  already 
defined  in  the  FX  Kernel  (cf.  previous  chapter). 

3.3.  Read  effect 

The  read  effect  is  the  effect  of  computations  that  only  read 
memory  locations.  It  is  already  defined  in  the  FX  Kernel 
(cf.  previous  chapter). 

3.4.  Write  effect 

The  write  effect  is  the  effect  of  computations  that  only 
write  memory  locations.  It  is  already  defined  in  the  FX 
Kernel  (cf.  previous  chapter). 

3.5.  Unit  fyp« 

The  unit  type  denotes  the  set  of  values  of  computations 
that  only  perform  side-effects.  It  is  already  defined  in  the 
FX  Kernel  (cf.  previous  chapter). 

There  is  one  V2due  of  type  unit:  the  literal  #n. 

3.6.  Bool  type 

The  bool  type  denotes  the  set  of  boolean  values.  It  is 
already  defined  in  the  FX  Kernel  (cf.  previous  chapter). 

There  are  two  boolean  literals:  #t  (for  the  true  booled) 
and  #f  (for  the  false  boolean). 

equiv?  (->  par*  ((p  bool)  (q  baoD)  bool) 

and?  :  (->  pur*  ((p  bool)  (q  bool))  bool) 

or?  :  (->  par*  ((p  bool)  (q  bool))  bool) 

not?  :  (->  pur*  ((p  bool))  bool) 

Equiv?  returns  *t  if  p  and  q  are  both  true  or  both  false  and 

#f  otherwise.  The  subroutines  and?  and  or?  respectively 
return  the  logical  “and”  and  logical  “or”  of  p  and  q.  lot? 
returns  the  negation  of  p. 

3.7.  Int  fypu 

The  int  type  denotes  the  set  of  integers. 

An  integer  literal  is  formed  by  an  optional  base  prefix,  an 
optional  i-  or  -  sign  ('f  is  assumed  if  omitted),  and  a  non¬ 
empty  succession  of  digits  that  are  defined  in  the  given 
base.  There  are  four  distinct  base  prefixes:  *b  (binary),  *o 
(octal),  *d  (decimal)  and  tz  (hexadecimal).  If  no  prefix  is 
supplied,  *d  is  assumed. 
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= 

(-> 

par* 

((i 

int) 

<j 

int)) 

bool) 

< 

(-> 

pur* 

((i 

int) 

(j 

int)> 

bool) 

> 

(-> 

pur* 

((i 

int) 

(j 

int)) 

bool) 

<= 

(-> 

pur* 

((i 

int) 

(j 

int)) 

bool) 

>= 

(-> 

pur* 

((i 

int) 

(j 

int)) 

bool) 

+ 

(-> 

pur* 

((i 

int) 

(j 

int)) 

int) 

* 

(-> 

pur* 

((i 

int) 

(j 

int)) 

int) 

- 

(-> 

pur* 

(Ci 

int) 

(j 

int)) 

int) 

/ 

(-> 

pur* 

((i 

int) 

(j 

int)) 

int) 

neg 

(-> 

pur* 

((i 

int) : 

int) 

remainder 

(-> 

pur* 

((i 

int) 

int)) 

int) 

modulo 

(-> 

pur* 

((i 

int) 

(j 

int)) 

int) 

absolute 

(-> 

pur* 

((i 

int)} 

int) 

The  subroutines  =,  <,  >,  <=  and  >=  respectively  return  #t 
if  X  is  equal,  less  than,  greater  than,  less  than  or  equal 
to  and  greater  than  or  equal  to  j  and  #f  otherwise.  The 
subroutines  +,  *  and  -  respectively  return  the  sum,  product 
and  difference  of  i  and  j .  /  returns  the  truncated  division 
of  i  by  j.  leg  returns  the  opposite  of  i.  The  subroutines 
remainder  and  modulo  both  return  the  rest  of  the  number- 
theoretic  integer  division  of  i  by  j ;  they  differ  on  negative 
arguments  (the  value  returned  by  remainder  has  the  same 
sign  as  i).  Absolute  returns  the  absolute  value  of  i. 

A  dynamic  error  is  signalled  in  case  of  division  by  zero  or 
overflow.  The  range  of  integer  values  and  subroutines  is 
unspecified. 

3.8.  Float  bype 

The  lloat  type  denotes  the  set  of  floating  point  numbers. 

A  float  literal  is  formed  by  an  optional  +  or  -  sign  (+  is 
assumed  if  omitted),  a  non-empty  succession  of  decimal 
digits,  a  decimal  point,  a  non-empty  succession  of  decimal 
digits  and  an  optional  exponent  denoted  by  the  letter  E  or 
«,  an  optional  +  or  -  sign  (+  is  assumed  if  omitted)  and  a 
sequence  of  decimal  digits. 


«1= 

<-> 

pur* 

((X 

float)  (j  float)) 

bool) 

IK 

(-> 

pur* 

<(x 

float)  (x  float)) 

bool) 

il> 

(-> 

pur* 

<<x 

float)  (y  float)) 

bool) 

11<= 

(-> 

pur* 

(<x 

float)  (y  float)) 

bool) 

tl>= 

(-> 

pur* 

(<x 

float)  (y  float)) 

bool) 

«!♦ 

(-> 

pur* 

((X 

float)  (y  float)) 

float) 

fl* 

(-> 

pur* 

((x 

float)  (y  float)) 

float) 

11- 

<-> 

pur* 

((X 

float)  (y  float)) 

float) 

11/ 

(-> 

pur* 

(<x 

float)  <y  float)) 

float) 

llneg 

(-> 

pur* 

«x 

float))  float) 

llabs 

(-> 

pur* 

((x 

float))  float) 

exp 

(-> 

pur* 

((X 

float))  float) 

log 

(-> 

pnr* 

((X 

float))  float) 

sqrt 

(-> 

pur* 

((x 

float))  float) 

siu 

(-> 

pur* 

«x 

float))  float) 

cos 

<-> 

pur* 

((X 

float))  float) 

tan 

(-> 

pur* 

((X 

float))  float) 

asin 

(-> 

pur* 

(<x 

float))  float) 

acos 

(-> 

pur* 

((x 

float))  float) 

atan 

(-> 

pur* 

((X 

float))  float) 

lloor 

<-> 

pur* 

((x 

float))  int) 

ceiling 

<-> 

pur* 

((x 

float))  int) 

truncate 

(-> 

pur* 

((x 

float))  int) 

round 

(-> 

pur* 

((x 

float))  int) 

int->lloat 

<-> 

pur* 

((X 

int))  float) 

The  subroutines  f  1=,  f  K,  11>,  f  1<=  and  11>=  respectively 
return  #t  if  z  is  equal  to,  less  than,  greater  than,  less  than 
or  equal  to  and  greater  than  or  equal  to  y  and  #f  otherwise. 
The  subroutines  11+,  il*,  11-  and  11/  respectively  return 
the  sum,  product,  difference  and  division  of  z  and  y.  Flneg 
returns  the  opposite  of  z.  Flabs  returns  the  absolute  value 
of  X.  Exp  returns  e  to  the  power  of  z.  Log  returns  the  nat¬ 
ural  logarithm  (in  base  e)  of  z.  Sqrt  returns  the  square 
root  of  z.  The  subroutines  sin,  cos,  tan,  asin,  acos  and 
atan  respectively  return  the  sine,  cosine,  tangent,  arcsine 
(within  ]-T/2,ir/2]),  circcosine  (within  ]-ir/2,ir/2])  and  arc¬ 
tangent  (within  ]-ir/2,x/2])  of  z.  The  subroutines  lloor 
and  ceiling  respectively  return  the  largest  and  smallest 
integer  not  larger  and  smaller  t Uan  z.  Truncate  returns  the 
integer  of  largest  absolute  value  not  larger  than  (llabs  z) 
and  of  same  sign  as  z.  Round  returns  the  closest  (even  if 
tie)  integer  to  z.  Int->lloat  returns  the  real  x  such  that 
(lloor  i)  =  (ceiling  x)  =  x. 

A  dynamic  error  is  signalled  in  case  of  division  by  zero, 
overflow  or  underflow.  The  subroutines  log  and  sqrt  sig¬ 
nal  an  error  if  z  is  not  positive.  The  precision  of  float¬ 
ing  point  values  and  subroutines  is  unspecified:  truncation 
may  occur  if  the  number  of  significant  digits  is  too  large. 

3.9.  Char  type 

The  char  type  denotes  the  set  of  characters. 

A  character  literal  is  formed  by  a  t\  prefix  loilowed  by  a 
character  or  an  identifier  followed  by  a  delimiter.  The  list 
of  allowed  identifiers  must  include:  backspace,  neuline. 


page,  space  and  tat 
char=? 

>. 

(-> 

pur* 

({c 

char) 

(d  char)) 

bool) 

char<? 

(-> 

pur* 

((c 

char) 

(d  char)) 

bool) 

char>? 

(-> 

pur* 

((c 

char) 

(d  char)) 

bool) 

char<=? 

(-> 

pur* 

((c 

char) 

(d  char)) 

bool) 

char>=? 

(-> 

pur* 

C(c 

char) 

(d  char)) 

bool) 

char-ci=? 

(-> 

pur* 

((c 

char) 

(d  char)) 

bool) 

char-ci<? 

(-> 

pur* 

((c 

char) 

(d  char)) 

bool) 

cbar-ci>? 

(-> 

pur* 

((c 

char) 

(d  char)) 

bool) 

char-ci<=? 

(-> 

pur* 

((c 

char) 

(d  char)) 

bool) 

ch2U--ci>=? 

(-> 

pur* 

((c 

char) 

(d  char)) 

bool) 

char-^tlphabet  ic  ? 

(-> 

pur* 

((c 

char)) 

bool) 

char-numeric? 

(-> 

pur* 

<{C 

char)) 

bool) 

char-whitespace? 

(-> 

pur* 

((c 

char)) 

bool) 

char-loser-case? 

(-> 

pur* 

((c 

char)) 

bool) 

char-upper- case? 

{-> 

pur* 

((c 

char)) 

bool) 

char-upcase 

(-> 

pur* 

((c 

char)) 

char) 

char-downcase 

(-> 

pur* 

((c 

char)) 

char) 

char->int 

(-> 

pur* 

((c 

char)) 

int) 

int->char 

(-> 

pnr* 

((c 

int)) 

char) 

The  subroutines  char=?,  char<?,  char>?,  cbar<=?  and 
char>=?  respectively  return  #t  if  c  is  equ2d  to,  less  than, 
greater  than,  less  than  or  equal  to  and  greater  than  or 
equal  to  d  and  #1  otherwise;  these  tests  are  based  on 
a  total  ordering  of  characters  which  is  compatible  with 
the  ASCII  standard  on  lower-case  letters,  upper-case  let¬ 
ters  and  digits  (without  any  interleaving  between  let¬ 
ters  and  digits).  The  subroutines  char-ci=?,  char-cK?, 
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char-ci>?,  chair-ci<=?  and  char-ci>=?  respectively  re¬ 
turn  #t  if  c  is  equd  to,  less  tll^ul,  greater  than,  less  than 
or  equal  to  and  greater  than  or  equal  to  d  and  other¬ 
wise;  these  tests  are  case-insensitive.  Char-alphabetic? 
returns  #t  when  c  is  alphabetic;  a  ch^lracter  is  alpha¬ 
betic  if  its  lower-case  version  is  between  #\a  and  #\z. 
Char-ntmeric?  returns  #t  when  c  is  a  (decimal)  digit. 
Char-whitespace?  returns  #t  when  c  is  a  white  space. 
The  subroutine  char-lower-case?  (char-upper-case?) 
returns  #t  if  c  is  between  #\a  (#\A)  and  #\z  (#\Z).  The 
subroutines  cheur-upcase  and  char-downceise  respectively 
return  the  upper-case  and  lower-case  version  of  c;  non- 
alphabetic  characters  remain  unchanged.  Char->int  re¬ 
turns  the  index  of  c  in  the  character  ordering  mentioned 
above.  Int->char  returns  the  character  with  ordering  in¬ 
dex  c. 

Int->char  signals  an  error  if  c  is  not  compatible  with  the 
character  ordering. 


3.10.  String 


type 


The  string  type  denotes  the  set  of  mutable  zero-based 
integer-indexed  sequences  of  characters.  Once  created,  a 
string  is  of  constant  length. 


A  string  literal  is  formed  by  a  double-quote  (”),  a  sequence 
of  characters  (where  \  is  the  escape  character  for  itself  and 
the  double-quote  chareicter)  and  an  ending  double-quote. 


Bake-string 

string-length 

string-ref 

string-set ! 

string-fill ! 

string*? 

string<? 

8tring>? 

8tring<=? 


<->  init 

((length  int)  (c  char)) 
string) 

(->  pars  ((s  string))  int) 
(->  read 

((s  string)  (indaz  int)) 
char) 

(->  writs 

((s  string)  (indaz  int) 
(nes-c  char)) 
unit) 

(->  writs 

((s  string)  (fill  char)) 
unit) 

(->  raad 

((s  string)  (t  string)) 
bool) 

(->  road 

((s  string)  (t  string)) 
bool) 

(->  road 

((s  string)  (t  string)) 
bool) 

(->  road 

((s  string)  (t  string)) 
bool) 


string>=? 

(->  rwad 

((s  string)  (t  string)) 
bool) 

string-ci=? 

• 

(->  raad 

((s  string)  (t  string)) 
bool) 

string-ci<? 

• 

(->  raad 

((s  string)  (t  string)) 
bool) 

string-ci>? 

(->  raad 

((s  string)  (t  string)) 
bool) 

string-ci<=? 

(->  raad 

((s  string)  (t  string)) 
bool) 

string-ci>*?  : 

(-> 

raad 

((s  string)  (t  string)) 
bool) 

substring 

(-> 

(■azaff  init  raad) 

((s  string)  (froa  int)  (to  int)) 
string) 

string-append  : 

(-> 

(■azaff  init  raad) 

((haad  string)  (tail  string)) 
string) 

string-copy 

(-> 

(■azaff  init  raad) 

((s  string)) 

string) 


Make-String  allocates  and  returns  a  string  of  length 
characters  c.  String-length  returns  the  length  of  s. 
String-ref  returns  the  character  of  s  that  is  at  the 
index  position.  String-set!  replaces  in  s  the  char¬ 
acter  at  the  index  position  with  new-c  and  returns  tu. 
String-fill!  replaces  each  character  of  s  with  fill 
and  returns  #n.  The  subroutines  string*?,  8tring<?, 
string>?,  8tring<s?  and  8tring>*?  respectively  return 
#t  if  s  is  lexicographically  equal  to,  less  than,  greater  than, 
less  than  or  equal  to  and  greater  than  or  equal  to  t  and  #f 
otherwise.  The  subroutines  string-ci=?,  string-ci<?, 
string-ci>?,  8tring-ci<=?  and  string>=?  respectively 
return  #t  if  s  is  lexicographically  equal  to,  less  than, 
greater  than,  less  than  or  equal  to  and  greater  than  or 
equal  to  t  and  #f  otherwise;  these  tests  are  case-insensitive. 
Substring  allocates  and  returns  a  string  formed  from  the 
characters  of  s  between  the  indices  from  and  to  (exclusive); 
if  froB  and  to  are  equal,  then  the  substring  returned  is  the 
empty  string  (”").  String-append  allocates  and  returns 
a  string  formed  by  the  concatenation  of  heeul  and  tail. 
String-copy  allocates  and  returns  a  string  with  the  char¬ 
acters  present  in  s. 

It  is  a  dynamic  error  to  try  to  access  out-of-bounds  el¬ 
ements  of  strings.  Substring  signab  a  dynamic  error 
if  froB  is  not  in  [0,  (string-length  s)[,  if  to  is  not  in 
[0,  (string-length  s)]  and  if  from  is  not  less  than  or 
equal  to  to. 

3.11,  Sym  type 

The  sya  type  denotes  the  set  of  values  that  are  solely  de¬ 
fined  by  their  name. 
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A  symbol  literal  is  formed  by  a  left  parenthesis  ((),  the 
keyword  symbol,  a  case-insensitive  identifier  and  a  right 
parenthesis  ()). 

sym->string  (->  init  ((s  «y«))  string) 

String->sym  <->  rs«d  ((s  string))  sya) 

8ym=?  (->  purs 

((s  sya)  (t  sya)) 

bool) 

Syiii->string  allocates  and  returns  a  string  corresponding 
to  the  name  of  s.  String->sym  returns  the  symbol  with 
name  s.  SyB=?  returns  #t  if  s  and  t  have  the  same  name 
and  #1  otherwise. 

3.12.  Permutation  type 

The  permutation  type  denotes  the  set  of  one-to-one  map¬ 
pings  on  finite  intervals  of  integers  st2irting  at  0.  Other 
permutation  operations  are  described  with  the  vector  op¬ 
erations  (see  below). 

make-permutation  (->  purs 

<(pi  (->  purs 

((froa  int)) 
int)) 

(Isagth  lot)) 
psrautstion) 

cahilt  <->  purs 

(dsngth  int)  (offsst  int)) 
psrautstion) 

identity  (->  pnrs 

(dsngth  int)) 
psrautstion) 

Make-permutation  returns  the  permutation  that  maps  ev¬ 
ery  integer  from  in  the  interval  [0,length[  to  (pi  from). 
Cshift  returns  the  permutation  that  performs  a  circular 
shift  (i.e.  elements  shifted  out  at  one  end  are  shifted  in 
at  the  other  end)  on  the  interval  [0,  length[  by  offset 
positions  on  the  right  if  offset  is  positive  and  by  (neg 
offset)  positions  on  the  left  otherwise.  Identity  returns 
a  permutation  that  maps  every  positive  integer  less  than 
length  to  itself. 

Make-permutation  signals  a  dynamic  error  if  length  is  not 
positive.  It  is  a  dynamic  error  if  pi  does  not  define  a  one- 
to-one  ms^ping.  The  subroutines  cshift  eind  identity 
signal  an  error  if  length  is  not  positive. 

3.13.  Refof  (-»  t3rpe) 

The  type  (refof  t)  denotes  the  set  of  mutable  references 
to  values  of  type  t.  It  is  already  defined  in  the  FX  Kernel 
(cf.  previous  chapter), 
ref  (peiy  ((*  type)) 

(->  lult  (<TUlO  t)>  t))) 

(poly  ((t  typo)) 

(->  rood  ((rof  (rafof  t)))  t)) 
(poly  ((t  typo)) 

(->  orita 

((raf  (rafof  t))  (vail  t)) 
unit)) 


Ref  allocates  and  returns  a  new  reference  with  initial  value 
valO.  *  returns  the  value  stored  in  ref.  :=  replaces  the 
value  stored  in  ref  with  vail  and  returns  #u. 


3.14.  Uniqueof  (-»  type) 


The  type  (uniqueof  t )  denotes  the  multiset  of  values  of 
type  t. 


unique 

; 

(poly  ((t  typo)) 

(->  init  ((x  t))  (nsiqnoof  t))) 

value 

(poly  <(t  typo)) 

(->  pnro  ((n  (oniqnoof  t)))  t)) 

eq? 

(poly  ((t  typo)) 

(->  pnro 

((nl  (nniqnoof  t)) 

(u2  (nniqnoof  t))) 
bool)) 

Unique  allocates  and  returns  a  unique  value  from  z;  the 
init  effect  ensures  that  no  memoization  will  be  performed 
on  calls  to  unique.  VaJ.ue  returns  the  embedded  value 
corresponding  to  u.  Eq?  returns  #t  when  ul  and  u2  have 
been  created  by  the  same  call  to  unique. 


3.15.  Listof  (-»  type) 


The  type  (listof  t)  denotes  the  set  of  mutable  homoge¬ 
neous  lists  of  values  of  type  t. 


null 

(poly  ((t  typo)) 

(->  pure  ()  (liotof  t))) 

null?  : 

(poly  ((t  typo)) 

(->  pnro  ((list  (listof  t)))  bool)) 

cons 

(poly  ((t  typo)) 

(->  init 

((cor  t)  (cdr  (listof  t))) 
(listof  t))) 

car 

(poly  ((t  typo)) 

(->  road  ((list  (listof  t)))  t)) 

cdr 

(poly  ((t  typo)) 

(->  road 

((list  (listof  t))) 

(listof  t))) 

set-car!  : 

(poly  ((t  typo)) 

(->  nrito 

((list  (listof  t))  (nos  t)) 
nnit)) 

set-cdr!  : 

(poly  ((t  typo)) 

(->  srito 

((list  (listof  t))  (nos  (listof  t))) 
unit)) 

length 

(poly  ((t  typo)) 

(->  road  ((list  (listof  t)))  int)) 

append 

(poly  ((t  typo)) 

(->  (eazoff  rood  init) 

((front  (listof  t)) 

(roar  (listof  t))) 

(listof  t))) 
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reverse 

list-tail 

list-ref 

Bap 

lor-each 

reduce 

list->8tring  ; 
string->liat  ; 


(poly  ((t  typo)) 

(->  (auoff  iait  road) 

((list  (listof  t))) 

(listof  t))) 

(poly  ((t  typo)) 

(->  road 

((list  (listof  t))  (aiatts  iat)) 
(listof  t))) 

(poly  ((t  typo)) 

(->  road 

((list  (listof  t))  (iadoz  iat)) 


t)) 

(poly  ((tl  typo)  (t2  typo)  (o  offoct)) 
(->  (aaxoff  o  iait  road) 

((f  (->  o  ((x  tl))  t2)) 

(list  (listof  tl))) 

(listof  t2))) 

(poly  ((tl  typo)  (t2  typo)  (o  offoct)) 
(->  (eazoff  o  road) 

((f  (->  o  ((x  tl))  t2)) 

(list  (listof  tl))) 
nait)) 


(poly  ((tl  typo)  (t2  typo)  (o  offoct)) 
(->  (snxoff  o  road) 


((f  (->  a  ((x  tl)  (rod  t2))  t2)) 
(list  (listof  tl)) 

(soad  t2)) 
t2)) 

(->  (aaxaff  road  iait) 

((chars  (listof  char))) 
striag) 

(->  (eazoff  road  iait) 

((chars  striag)) 

(listof  char)) 


lull  returns  the  empty  list.  lull?  returns  #t  if  the  list 
is  empty  and  #f  otherwise.  Cons  allocates  and  returns  a  list 
with  car  as  first  element  and  cdr  as  remaining  elements. 
Car  returns  the  first  element  of  list.  Cdr  returns  the  list 
after  the  first  element  of  list.  Set-car!  replaces  the  first 
element  of  list  with  new  and  returns  *u.  Set-cdr!  re¬ 
places  the  rest  of  list  with  new  and  returns  #u.  Length 
returns  the  number  of  elements  in  list.  Append  allocates 
and  returns  a  list  that  is  the  concatenation  of  front  and 
rear.  Reverse  allocates  and  returns  a  list  with  the  el¬ 
ements  of  list  in  the  reverse  order.  List-tail  returns 
the  sublist  of  list  after  omitting  its  first  minus  elements. 
List -ref  returns  the  indez-th  element  of  list.  Nap  al¬ 
locates  and  returns  a  list  that  is  obtained  by  consing  the 
results  of  applying  f  on  each  element  z  of  list  from  left  to 
right.  For-each  applies  f  to  each  element  z  of  list  from 
left  to  right  and  returns  *u.  Reduce  returns  the  result 
of  the  right-associative  running  (in  red)  applications  of  f 
with  each  element  z  of  list,  beginning  with  seed;  seed 
is  returned  if  list  is  empty.  List->string  allocates  and 
returns  a  string  made  of  chars.  String->list  adlocates 
and  returns  a  list  made  of  chars. 

It  is  a  dynaunic  error  to  apply  access  operations  such  as 
car  or  cdr  on  the  empty  list.  A  dynamic  error  is  signalled 
if  set-car!  or  set-cdr!  is  applied  to  the  empty  list.  A 
dynamic  error  is  signalled  if  the  indez  is  out  of  range  in 
list-ref  or  if  sinus  is  greater  than  the  length  of  list  in 


list-tail. 


3.16.  Vectorof 


(-»  type) 


The  type  (vectorof  t)  denotes  the  set  of  mutable,  zero- 
based,  integer-indexed,  homogeneous  vectors  that  contain 
elements  of  type  t.  Once  created,  a  vector  is  of  constant 
length. 


make-vector 


vector-length 


vector-ref 


vector-set ! 


vector-fill! 


vector->li8t 


list->vector 


vector-map  : 


vector-Bap2  ; 


vector-reduce 


(poly  ((t  typo)) 

(->  iait 

(dongth  int)  (valno  t)) 
(voctorof  t))) 

:  (poly  ((t  typo)) 

(->  pnro 

((vector  (voctorof  t))) 
int)) 

;  (poly  ((t  typo)) 

(->  rood 

((vector  (voctorof  t)) 

(index  int)) 
t)) 

:  (p«ly  ((t  typo)) 

(->  write 

((vector  (voctorof  t)) 
(index  int) 

(now  t)) 

■nit)) 

(poly  ((t  typo)) 

(->  write 

((old  (voctorof  t)) 

(now  t)) 
unit)) 

(poly  ((t  typo)) 

(->  (nozoff  init  rend) 

((vector  (voctorof  t))) 
(listof  t))) 

(poly  ((t  typo)) 

(->  (aoxoff  iait  road) 

((list  (listof  t))) 

(voctorof  t))) 

(poly  ((tl  typo)  (t2  typo)  (o  affect)) 

(->  (aaxaff  o  init  road) 

((f  (->  a  ((v  tl))  t2)) 

(vector  (vectorof  tl))) 

(voctorof  t2))) 

(poly  ((tl  typo)  (t2  typo)  (u  typo)  (o  offoct)) 
(->  (Baxaff  a  init  road) 

((f  (->  o  ((vl  tl)  (v2  t2))  n)) 

(vactorl  (voctorof  tl)) 

(voctor2  (voctorof  t2))) 

(voctorof  n))) 

(poly  ((t  typo)  (n  typo)  (o  offoct)) 

(->  (nazoff  a  road) 

((f  (->  a  ((x  t)  (rod  «))  n)) 
(vactor  (voctorof  t)) 

(seed  n)) 
n)) 
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scan  (poly  ((t  type)  (•  affect)) 

(->  (uxaff  e  init  read) 

((f  (->  e  ((x  t)  (y  t))  t)) 
(vector  (vectorof  t))) 
(vectorof  t))) 

segmented-scan  (poly  ((t  type)  (e  effect)) 

(->  (naxeff  e  init  read) 

at  (->  e  ((x  t)  (y  t))  t)) 
(segaenta  (vectorof  bool)) 
(vector  (vectorof  t))) 
(vectorof  t))) 

permute  (poly  ((t  type)) 

(->  (naxeff  init  read) 

(  (sapping  pemitation) 
(vector  (vectorof  t))) 
(vectorof  t))) 

compress  (poly  ((t  type)) 

(->  (saxaff  init  read) 

((selection  (vectorof  bool)) 
(vector  (vectorof  t))) 
(vectorof  t))) 

expand  (poly  ((t  type)) 

(->  (saxaff  init  read) 

((selection  (vectorof  bool)) 
(vector  (vectorof  t)) 
(default  (vectorof  t))) 
(vectorof  t))) 

eoshift  :  (poly  ((t  type)) 

(->  (saxaff  init  read) 

((offset  int) 

(vector  (vectorof  t)) 
(default  (vectorof  t))) 
(vectorof  t))) 

Make-vector  allocates  and  returns  a  vector  of  length  el¬ 
ements,  each  having  the  given  value.  Vector-length  re¬ 
turns  the  number  of  elements  in  vector.  Vector-ref  re¬ 
turns  the  index-th  element  of  vector.  Vector-set !  re¬ 
places  the  index-th  value  of  vector  with  nee  and  returns 
#u.  Vector-fill !  replaces  each  element  of  old  with  nee 
and  returns  #u.  Vector->list  returns  a  list  constructed 
from  the  elements  of  vector.  List->vector  allocates  and 
returns  a  vector  constructed  from  the  elements  of  list. 
Vector-map  allocates  and  returns  a  vector  that  is  obtained 
by  applying  f  to  each  element  v  of  vector.  Vector-map2 
allocates  and  returns  a  vector  that  is  obtained  by  apply¬ 
ing  f  to  each  element  vl  of  vector  1  and  v2  of  vector2. 
Vector-reduce  returns  the  result  of  the  right-associative 
running  (in  red)  applications  of  f  with  each  element  of 
vector.  Scan  allocates  and  returns  a  vector  in  which  the 
element  of  offset  «-l  is  the  reduction  by  f  of  the  first  i  el¬ 
ements  of  vector.  Segmented-scan  allocates  and  returns 
a  vector  that  contains  the  reductions  by  f  of  subvectors 
of  vector  corresponding  to  each  contiguous  sequence  of 
#f  of  segments.  Permute  allocates  and  returns  a  vec¬ 
tor  obtained  by  permuting  vector  according  to  mapping; 
specifically,  if  mapping  maps  x  to  y,  then  (vector-ref 
(permute  mapping  vector)  y)  is  (vector-ref  vector 
x).  Compress  allocates  and  returns  a  vector  obteuned  by 
selecting  from  vector  the  elements  that  have  a  correspond¬ 
ing  #t  value  in  selection.  Expand  allocates  and  returns  a 
vector  obtained  by  replicating  default,  except  for  entries 


in  selection  that  are  #t  in  which  case  the  next  available 
element  of  vector  is  chosen.  Eoshift  allocates  and  re¬ 
turns  a  vector  obtained  by  performing  an  “End-Off”  shift 
(i.e.  element  are  shifted  out  at  one  end  and  default  val¬ 
ues  are  shifted  in  at  the  other  end)  of  vector  by  offset 
positions  on  the  right  if  offset  is  positive  and  by  (neg 
offset)  positions  on  the  left  otherwise. 

The  subroutines  vector-ref  and  vector-set!  signal  a 
dynamic  error  if  index 

is  not  in  [0,  (vector-length  vector)  [.  It  is  a  dyneimic 
error  for  f  not  to  be  associative  in  vector-reduce,  scan 
and  segmented-scan.  Segmented-scan  signals  a  dynamic 
error  if  the  lengths  of  segments  suid  vector  differ.  Permute 
sign^ds  a  dynamic  error  if  the  length  of  input  differs  from 
the  domain  of  the  mapping.  Compress  signals  a  dynamic 
error  if  the  lengths  of  selection  and  vector  differ.  Expand 
signals  a  dynamic  error  if  the  length  of  selection  and 
default  differ. 

3.17.  Sexp  type 

The  sexp  type  denote  the  set  of  values  that  are  usu2illy  de¬ 
fined  as  “symbolic  expressions” .  The  type  sexp  is  defined 
by: 

(def ine-datatype  sexp 

(iuxit->sexp  unit) 

(bool->sexp  bool) 

(sym->sexp  sym) 

(int->8exp  int) 

(float->sexp  float) 

(char->sexp  char) 

(string->sexp  string) 
(list->sexp  (listof  sexp)) 
(vector->sexp  (vectorof  sexp))) 

sexp=?  (->  r«xd  ((si  cexp)  (s2  saxp))  bool) 

Sexp=?  (recursively)  compares  the  two  symbolic  expres¬ 
sions  si  and  s2  for  equality;  for  each  betsic  type,  the  ap¬ 
propriate  equality  function  is  used. 

Values  of  type  sexp  can  be  introduced  in  programs  by  the 
“quote”  symbol  ( ’ )  in  front  of  a  symbolic  constant.  A.  sym¬ 
bolic  constant  is  either  a  literal,  a  sequence  of  symbolic 
constants  between  parentheses  (preceded  by  a  hash  sign 
for  vectors).  The  desugaring  of  a  symbolic  constant  is  de¬ 
fined  by  induction: 

•  if  the  symbolic  constant  is  a  literal  /  of  type  t 
(e.g.,  1.3),  then  its  desugaring  is  (t->sexp  1)  (e.g., 
(float->sexp  1.3)). 

•  if  the  symbolic  constant  is  a  sequence  between  paren¬ 
theses,  then  the  desugarings  of  the  constituents  are 
gathered  in  a  list  I  of  tyi>e  (listof  sexp)  and  its 
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desugaxing  is  (list->sexp  /).  If  the  sequence  is  pre¬ 
ceded  by  a  hash  sign  (#),  then  a  vector  v  of  type 
(vectorol  sezp)  is  gathered  and  its  desugaring  is 
(vector->8exp  v). 


at  the  end  of  the  stream.  Close-stream  closes  the 
stream  st  and  returns  #u.  Both  stream-sexp-eol?  and 
stream- char-eof?  return  #t  when  applied  to  closed 
streams.  Error  prints  its  message  on  standard-output 
and  signals  a  dynamic  error. 


3.18.  Stream 


type 


The  type  stream  denotes  the  set  of  values  that  serve  as 
sequenced  source  or  sink  of  values  of  type  char.  For  pro¬ 
gramming  convenience,  the  f  r  module  contains  operations 
on  streams  supporting  the  sezp  type. 


standard- input 
standard-output 
open- input - stream 


open-output-stream  : 


stream-arite-sexp  : 


vrite-sexp 
stream-arite-char  : 


write- char 

8tre^un-read-sexp 

read-sexp 

stream-read-char 

read-char 

stream-char-eoi? 

stream-sezp-eof? 

close-stream 

error 


stream 

stream 

(->  (mazaff  init  vrite) 

((file  string)) 
stream) 

(->  (mazeff  init  erite) 

((file  string)) 
stream) 

(->  srite 

((oatpnt  stream)  (valne  sezp)) 
nnit) 

(->  vrite  ((value  sezp))  unit) 

(->  vrite 

((output  stream)  (value  char)) 
unit) 

(->  vrite  ((value  char))  unit) 

(->  vrite  ((input  stream))  sezp) 
(->  srite  ()  sezp) 

(->  srite  ((input  stream))  char) 
(->  srite  ()  char) 

(->  vrite  ((input  stream))  bool) 
(->  srite  ((input  stream))  bool) 
(->  vrite  ((st  stream))  nnit) 

(poly  ((t  type)) 

(->  srite 

((message  string)) 
t)) 


Open-input-stream  and  open-output-stream  signal  a 
dynamic  error  if  the  file  cannot  be  opened.  It  is  a  dy¬ 
namic  error  to  perform  any  operation  (apart  from  testing 
for  end  of  file)  on  a  closed  streeim.  It  is  a  dynamic  er¬ 
ror  to  perform  a  read  operation  on  an  input  stream  if 
(stream-ch2ir-eol?  input)  is  true.  It  is  a  dynamic  error 
to  perform  a  stream-sexp-read  operation  on  an  input 
stream  if  (stream-sexp-eof?  input)  is  true.  A  dynamic 
error  is  signalled  on  attempts  to  read  from  a  stream  opened 
for  output  and  on  attempts  to  write  to  a  stream  opened 
for  input.  It  is  a  dynamic  error  to  apply  an  -eof?  pred¬ 
icate  to  an  output  file.  A  dynamic  error  is  signalled  if 
a  m2Jformed  s-expression  is  encountered  by  read-sexp  or 
stream-read-sexp. 


Standard- input  and  r  andard-output  are  implement¬ 
ation-defined  streams  (usually  connected  to  the  user  ter¬ 
minal)  on  which  input  and  output  operations  can  be  per¬ 
formed,  respectively.  Open-input-stream  allocates  and 
returns  an  input  stream  connected  to  the  file.  The  inter¬ 
pretation  of  the  string  file  is  implementation-dependent. 
Stream-read-sexp  and  stream-read-char  return  the  first 
value  of  the  input  stream.  Read-sexp  emd  read-char 
return  the  first  value  of  the  standard-input-stream. 
Open-output-stream  allocates  and  returns  an  output 
stream  connected  to  the  file.  Again,  the  interpre¬ 
tation  of  the  string  file  is  implementation-dependent. 
Stream-write-sexp  and  stream-writ e-char  send  the 
value  to  the  output  stream  and  return  *u.  Vrite-sexp 
and  write-char  send  the  value  to  the  standard-output 
stream.  Read  operations  have  a  write  effect  because 
they  change  the  state  of  the  stream.  Stream-char-eof  ? 
returns  *t  if  no  more  characters  can  be  read  fi'om  the 
input,  #f  otherwise.  Stream-sexp-eof?  returns  #t  if 
the  end  of  the  input  will  be  reached  before  the  start  of  the 
next  s-expression,  #f  otherwise.  Thus  stream-sexp-eof? 
returns  #f  if  there  is  only  an  incomplete  s-expression 
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ALPHABETIC  INDEX  OF  DEFINITIONS  OF  CONCEPTS, 
KEYWORDS,  AND  PROCEDURES 


*.9,  19 

17 
<.  17 
>,  17 
>=.  17 
<=.  17 

+,  17 

17 
/,  17 
:=,  9.  19 
=,17 

abs,  7,  16 
absolute,  17 
acos,  17 
and,  14 
and?, 16 
append, 19 
application 

description,  6 
value,  9 
asin,  17 
atan,  17 

begin, 9 
bool,  6,  16 
bool->sexp,  21 

car,  19 
cdr,  19 
ceiling,  17 
char,  17 
char>,  17 
char>?, 17 
char>=?,  17 
char<=?,  17 
char->int, 17 
char->sezp,  21 
char-alphabetic?,  17 
char-ci>, 17 
char-ci>?,  17 
char-ci>=?,  17 
char-ci<®?,  17 
char-ci=?,  17 
char-domcase,  17 
char-loser-case?,  17 
char-nu*eric?,  17 
char-upcase,  17 


char-upper-case?,  17 
char-shit espace?,  17 
char=?,  17 
character,  3 
extended,  3 
white  space,  3 
close-stream,  22 
conunent,  4 
compress,  21 
cond,  14 
cons,  19 
conventic”>s,  4 
cos,  17 
cshift, 19 

delabs, 11 
defdatatype,  15 
deldesc,  11 
define,  11,  15 
deftyped, 11 
delimiter,  3 
desc,  7 
dfunc, 5 
digit,  3 
dlambda,  6 
do,  15 
dot 

notation,  14 
dot-dot 

notation,  15 

effect, 5 

environment,kmd,  5 
environment, type,  5 
eoshift,  21 
eq?,  19 
equiv?, 16 
error,  22 
errors 

dynamic,  4 
static,  4 
exp,  17 
expand,  21 
expansive,  10 
expression 

description,  5 
kind,  5 
value,  5 
extend, 9 
extract, 10 

fl*,  17 


fl<,  17 
tl>,  17 
tl>=, 17 
*1<=, 17 
11+,  17 
tl-, 17 
fl/,  17 
fl=,  17 
llabs,  17 
llneg,  17 
float, 17 
float->saxp,  21 
floor, 17 
for-each,  20 
FV,  5 

identifier,  4 

description,  6 
reserved, 4 
V2due,  9 
identity,  19 
if,  10 
inferable,  6 
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